(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    297717,       6977]
NotebookOptionsPosition[    257570,       6252]
NotebookOutlinePosition[    258052,       6271]
CellTagsIndexPosition[    258009,       6268]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Chapter 2: Data Manipulation", "Chapter",
 CellChangeTimes->{{3.902350662405488*^9, 3.902350666605482*^9}, 
   3.902350740023209*^9, {3.902354520712433*^9, 3.902354522069192*^9}, {
   3.902354619888403*^9, 3.9023546278759813`*^9}, {3.902756146644896*^9, 
   3.902756148840089*^9}},ExpressionUUID->"41bebc66-3d17-47b9-9581-\
719b893821d4"],

Cell[CellGroupData[{

Cell["2.1 Lists", "Section",
 CellChangeTimes->{{3.902354656349359*^9, 3.902354682391476*^9}, {
  3.902355281714446*^9, 
  3.902355283305216*^9}},ExpressionUUID->"7352ce37-6561-4912-b62d-\
9f539991d964"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", "List"}]], "Input",
 CellChangeTimes->{{3.9016491118972178`*^9, 3.901649113183241*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"d18cfc29-9dd8-4396-9bb3-10284c5e06f1"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = True, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox[
           PaneBox[
            TooltipBox[
             ButtonBox[
              PaneSelectorBox[{False->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "InformationHelpIcon"],
                ImageSizeCache->{16., {5., 11.}}], True->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "InformationHelpIconHot"],
                ImageSizeCache->{16., {5., 11.}}]}, Dynamic[
                CurrentValue["MouseOver"]]],
              Appearance->None,
              BaseStyle->"Link",
              ButtonData->"paclet:ref/List",
              ButtonNote->"paclet:ref/List"],
             "\"paclet:ref/List\""],
            FrameMargins->{{0, 4}, {0, 2}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"\\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"}\\\"}]\\) is a list of elements. \"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Documentation\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Documentation\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Documentation", "Tooltip"]& ], 
                   TemplateBox[{
                    
                    TemplateBox[{
                    "\"Local \[RightGuillemet]\"", "paclet:ref/List", 
                    "paclet:ref/List", "Link", {
                    RGBColor[0.9686274509803922, 0.4666666666666667, 0.]}, 
                    BaseStyle -> {
                    RGBColor[0.0784313725490196, 0.1568627450980392, 0.6]}}, 
                    "HyperlinkTemplate"], "\"  \"", 
                    StyleBox[
                    "\"|\"", "InformationRowLabel", StripOnInput -> False], 
                    "\"  \"", 
                    TemplateBox[{"\"Web \[RightGuillemet]\"", {
                    URL[
                    "http://reference.wolfram.com/language/ref/List.html"], 
                    None}, "http://reference.wolfram.com/language/ref/List.\
html", "Hyperlink", {
                    RGBColor[0.9686274509803922, 0.4666666666666667, 0.]}, 
                    BaseStyle -> {
                    RGBColor[0.0784313725490196, 0.1568627450980392, 0.6]}}, 
                    "HyperlinkTemplate"]},
                    "RowDefault"]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Attributes\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Attributes\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Attributes", "Tooltip"]& ], 
                   RowBox[{"{", 
                    RowBox[{"Locked", ",", "Protected"}], "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"System`List\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"],
               ImageSizeCache->{13., {2., 11.}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"],
               ImageSizeCache->{13., {2., 11.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox[
           PaneBox[
            TooltipBox[
             ButtonBox[
              PaneSelectorBox[{False->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "InformationHelpIcon"]], True->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "InformationHelpIconHot"]]}, Dynamic[
                CurrentValue["MouseOver"]]],
              Appearance->None,
              BaseStyle->"Link",
              ButtonData->"paclet:ref/List",
              ButtonNote->"paclet:ref/List"],
             "\"paclet:ref/List\""],
            FrameMargins->{{0, 4}, {0, 2}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"\\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"e\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"}\\\"}]\\) is a list of elements. \"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "\!\(\*RowBox[{\"{\", RowBox[{SubscriptBox[StyleBox[\"e\", \"TI\"], \
StyleBox[\"1\", \"TR\"]], \",\", SubscriptBox[StyleBox[\"e\", \"TI\"], \
StyleBox[\"2\", \"TR\"]], \",\", StyleBox[\"\[Ellipsis]\", \"TR\"]}], \"}\"}]\
\) is a list of elements. ", 
    "Documentation" -> <|
     "Local" -> "paclet:ref/List", "Web" -> 
      "http://reference.wolfram.com/language/ref/List.html"|>, "OwnValues" -> 
    None, "UpValues" -> None, "DownValues" -> None, "SubValues" -> None, 
    "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> None, "Attributes" -> {Locked, Protected}, "FullName" -> 
    "System`List"|>, True]]], "Output",
 CellChangeTimes->{
  3.901649114152803*^9, 3.901719646319088*^9, 3.901732201928261*^9, 
   3.901732959194696*^9, 3.9018099188544083`*^9, 3.9018107949423656`*^9, 
   3.9018108264372883`*^9, 3.9020037914529*^9, 3.902003898421543*^9, {
   3.902005779806375*^9, 3.902005797646623*^9}, 3.902007106208001*^9, 
   3.902007631523992*^9, 3.902077391320923*^9, 3.9020809315245867`*^9, 
   3.902095789176357*^9, 3.902177363376524*^9, 3.902177433689804*^9, 
   3.902178918115978*^9, 3.902179670061327*^9, 3.902179828689187*^9, 
   3.902180096433557*^9, 3.9021807231936398`*^9, 3.902181045752696*^9, 
   3.902260471712969*^9, 3.902262426269499*^9, 3.902263034318114*^9, 
   3.902263168897345*^9, 3.9023344619942417`*^9, 3.902337856528469*^9, 
   3.902350670296384*^9, 3.902354845496149*^9, 3.9027527747234993`*^9, 
   3.902753801697091*^9, 3.907092679340212*^9, 3.907095532342982*^9, 
   3.907858804641125*^9, 3.91901110646316*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"bf057439-96d2-4863-a839-bf56bf05d6f3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["2.1.1 Types of Numbers", "Subsection",
 CellChangeTimes->{{3.902354822569873*^9, 3.902354829103816*^9}, {
  3.9023552878007517`*^9, 
  3.9023552952870417`*^9}},ExpressionUUID->"ee76ec32-ca02-4dcb-b22c-\
1965a9f70575"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"10", ",", 
   RowBox[{"InputForm", "[", "10", "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.901649345230832*^9, 3.901649349244361*^9}, {
   3.9016493840135593`*^9, 3.901649393020106*^9}, 3.902752779785449*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"4635b944-4c32-4292-9966-0a3d3feaf154"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"10", ",", 
   InterpretationBox[
    StyleBox["10",
     ShowStringCharacters->True,
     NumberMarks->True],
    InputForm[10],
    AutoDelete->True,
    Editable->True]}], "}"}]], "Output",
 CellChangeTimes->{
  3.901649350475233*^9, 3.901719646570041*^9, 3.901732202188842*^9, 
   3.9017329594245663`*^9, 3.901809919052615*^9, 3.901810795028649*^9, 
   3.901810826533169*^9, 3.902003791536338*^9, 3.9020038985096273`*^9, {
   3.902005779894629*^9, 3.9020057977346563`*^9}, 3.902007106284182*^9, 
   3.902007631614832*^9, 3.902077391525865*^9, 3.902080931612975*^9, 
   3.902095789263982*^9, 3.902177363631258*^9, 3.902177433765061*^9, 
   3.90217891845615*^9, 3.9021796701494007`*^9, 3.9021798287767057`*^9, 
   3.9021800965246487`*^9, 3.902180723283579*^9, 3.902181045842496*^9, 
   3.902260471885449*^9, 3.902262426351093*^9, 3.90226303440132*^9, 
   3.90226316897888*^9, 3.902334462168452*^9, 3.90233785670711*^9, 
   3.902350670304375*^9, 3.902354840307311*^9, 3.902752777633284*^9, 
   3.902753801790907*^9, 3.907092706261002*^9, 3.9070955324193788`*^9, 
   3.90785880479778*^9, 3.9190111065633173`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"c012dbc6-90fd-412b-b409-95a93de1d527"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"10", "//", "Accuracy"}], ",", 
   RowBox[{
    RowBox[{"InputForm", "[", "10", "]"}], "//", "Precision"}]}], 
  "}"}]], "Input",
 CellChangeTimes->{{3.901649394738935*^9, 3.901649410045003*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"4241b13c-d95c-4a6e-a178-99b1532e7e21"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\[Infinity]", ",", "\[Infinity]"}], "}"}]], "Output",
 CellChangeTimes->{{3.901649407783673*^9, 3.901649411576715*^9}, 
   3.901719646577895*^9, 3.901732202224137*^9, 3.901732959430459*^9, 
   3.901809919056543*^9, 3.9018107950328493`*^9, 3.90181082653817*^9, 
   3.902003791540512*^9, 3.9020038985139728`*^9, {3.902005779899146*^9, 
   3.902005797742066*^9}, 3.902007106288336*^9, 3.902007631619577*^9, 
   3.9020773915307913`*^9, 3.902080931617591*^9, 3.902095789268849*^9, 
   3.902177363664247*^9, 3.9021774337707577`*^9, 3.9021789184834137`*^9, 
   3.902179670154318*^9, 3.902179828787067*^9, 3.902180096529516*^9, 
   3.90218072328835*^9, 3.902181045847477*^9, 3.90226047188879*^9, 
   3.9022624263559623`*^9, 3.902263034427431*^9, 3.902263168983661*^9, 
   3.902334462172044*^9, 3.902337856711314*^9, 3.902350670321289*^9, 
   3.90235488315761*^9, 3.902752781128866*^9, 3.902753801795526*^9, 
   3.907092717468464*^9, 3.907095532422917*^9, 3.907858804813861*^9, 
   3.919011106572651*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"02eac862-ad91-4526-b391-b7841ae44543"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"5", "/", "10"}], ",", 
   RowBox[{"InputForm", "[", 
    RowBox[{"10", "/", "12"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.9016494847753053`*^9, 3.901649484778103*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"bdc07e1f-cb66-4238-b5b4-e5a0ac73f071"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["1", "2"], ",", 
   InterpretationBox[
    StyleBox[
     RowBox[{"5", "/", "6"}],
     ShowStringCharacters->True,
     NumberMarks->True],
    InputForm[
     Rational[5, 6]],
    AutoDelete->True,
    Editable->True]}], "}"}]], "Output",
 CellChangeTimes->{
  3.901649487995195*^9, 3.901719646609604*^9, 3.90173220223127*^9, 
   3.901732959434393*^9, 3.9018099190911*^9, 3.901810795036663*^9, 
   3.90181082656789*^9, 3.902003791564547*^9, 3.9020038985177*^9, {
   3.902005779927413*^9, 3.902005797767362*^9}, 3.902007106292262*^9, 
   3.902007631647328*^9, 3.9020773915531588`*^9, 3.902080931621611*^9, 
   3.9020957892730303`*^9, 3.902177363675908*^9, 3.902177433793716*^9, 
   3.9021789184893727`*^9, 3.902179670158567*^9, 3.90217982881042*^9, 
   3.902180096533688*^9, 3.902180723311982*^9, 3.902181045871653*^9, 
   3.902260471912821*^9, 3.902262426360242*^9, 3.902263034432724*^9, 
   3.902263169006175*^9, 3.9023344621756372`*^9, 3.902337856715418*^9, 
   3.902350670325205*^9, 3.902354891118054*^9, 3.902752783013242*^9, 
   3.9027538017992077`*^9, 3.907092721400053*^9, 3.907095532438743*^9, 
   3.907858804818438*^9, 3.919011106576733*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"72d72300-e5ce-4f69-96b4-e9447f71e750"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"5", "/", "10"}], "//", "Accuracy"}], ",", 
   RowBox[{
    RowBox[{"InputForm", "[", 
     RowBox[{"10", "/", "12"}], "]"}], "//", "Precision"}]}], "}"}]], "Input",\

 CellChangeTimes->{{3.9016494847753053`*^9, 3.901649484778103*^9}, {
  3.901649597808229*^9, 3.901649605827909*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"5db9347f-340f-4ef1-b7eb-6bcc5b92af1b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\[Infinity]", ",", "\[Infinity]"}], "}"}]], "Output",
 CellChangeTimes->{
  3.901649606171278*^9, 3.901719646616831*^9, 3.901732202268408*^9, 
   3.901732959469449*^9, 3.901809919095331*^9, 3.901810795064962*^9, 
   3.901810826572728*^9, 3.902003791568802*^9, 3.902003898545093*^9, {
   3.902005779932575*^9, 3.902005797776493*^9}, 3.9020071062961187`*^9, 
   3.902007631651944*^9, 3.902077391558089*^9, 3.902080931625498*^9, 
   3.902095789300766*^9, 3.90217736369864*^9, 3.902177433798578*^9, 
   3.902178918516384*^9, 3.902179670180026*^9, 3.902179828820788*^9, 
   3.902180096562317*^9, 3.902180723316832*^9, 3.9021810458767147`*^9, 
   3.902260471916887*^9, 3.9022624263645363`*^9, 3.902263034457446*^9, 
   3.902263169011366*^9, 3.902334462182061*^9, 3.902337856724036*^9, 
   3.902350670328694*^9, 3.902354905767344*^9, 3.9027527858462677`*^9, 
   3.902753801825214*^9, 3.9070927364197407`*^9, 3.907095532442856*^9, 
   3.907858804835321*^9, 3.919011106587391*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"c33bc280-d96f-4ced-a23b-24dceaa9b453"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"2.72", "//", "Precision"}], ",", 
   RowBox[{"InputForm", "[", "2.72", "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.90164969930544*^9, 3.901649747917265*^9}, {
  3.901715297948719*^9, 3.901715298626129*^9}, {3.901715385256625*^9, 
  3.901715437061239*^9}, {3.9017154822548723`*^9, 3.9017154827709713`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"ff1375ac-2d5e-4492-a175-b40e8341db87"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"MachinePrecision", ",", 
   InterpretationBox[
    StyleBox["2.72",
     ShowStringCharacters->True,
     NumberMarks->True],
    InputForm[2.72],
    AutoDelete->True,
    Editable->True]}], "}"}]], "Output",
 CellChangeTimes->{{3.9016497002246733`*^9, 3.901649748158901*^9}, {
   3.901715395552712*^9, 3.901715437690052*^9}, 3.901715484028946*^9, 
   3.901719646647828*^9, 3.901732202276202*^9, 3.901732959478846*^9, 
   3.901809919122837*^9, 3.901810795069276*^9, 3.901810826600709*^9, 
   3.902003791588201*^9, 3.902003898549614*^9, {3.902005779962041*^9, 
   3.902005797801206*^9}, 3.9020071063000193`*^9, 3.902007631678274*^9, 
   3.90207739156374*^9, 3.902080931635399*^9, 3.902095789305775*^9, 
   3.902177363706296*^9, 3.902177433823371*^9, 3.902178918521792*^9, 
   3.90217967018491*^9, 3.902179828843882*^9, 3.902180096567444*^9, 
   3.902180723340188*^9, 3.9021810459008093`*^9, 3.902260471922761*^9, 
   3.902262426369608*^9, 3.902263034462749*^9, 3.902263169036407*^9, 
   3.9023344622164383`*^9, 3.902337856747402*^9, 3.902350670358959*^9, 
   3.9023549265418777`*^9, 3.902752791030298*^9, 3.902753801829621*^9, 
   3.907092772417447*^9, 3.907095532446291*^9, 3.907858804840378*^9, 
   3.919011106591378*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"e22fdf54-3c58-40e3-a4fd-eeaff783457b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SameQ", "[", 
  RowBox[{"1", ",", "1.0"}], "]"}]], "Input",
 CellChangeTimes->{{3.90171549179491*^9, 3.901715510026836*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"a2785403-e69c-4c4d-b886-741bad04056b"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{{3.901715492975013*^9, 3.901715510444175*^9}, 
   3.901719646654744*^9, 3.901732202307986*^9, 3.9017329595096493`*^9, 
   3.901809919131269*^9, 3.9018107950983543`*^9, 3.90181082660494*^9, 
   3.9020037915932703`*^9, 3.902003898577311*^9, {3.902005779966651*^9, 
   3.902005797807733*^9}, 3.902007106321774*^9, 3.902007631682973*^9, 
   3.902077391574151*^9, 3.902080931658202*^9, 3.902095789309823*^9, 
   3.902177363730465*^9, 3.902177433828069*^9, 3.9021789185457067`*^9, 
   3.902179670189045*^9, 3.902179828851503*^9, 3.902180096593439*^9, 
   3.90218072334509*^9, 3.902181045905707*^9, 3.902260471931662*^9, 
   3.902262426390728*^9, 3.9022630344670763`*^9, 3.902263169041619*^9, 
   3.902334462221016*^9, 3.90233785675614*^9, 3.902350670369176*^9, 
   3.9023549601496964`*^9, 3.902752793715629*^9, 3.902753801833148*^9, 
   3.907092801399505*^9, 3.907095532449579*^9, 3.907858804853442*^9, 
   3.919011106602964*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"36d18b38-9ed0-457e-86fd-7f90b6744462"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Head", "[", "1", "]"}], ",", 
   RowBox[{"Head", "[", "1.0", "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.901715602970092*^9, 3.9017156047084703`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"040006f0-e56e-4e75-929d-0c57f787626d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Integer", ",", "Real"}], "}"}]], "Output",
 CellChangeTimes->{
  3.901715605136413*^9, 3.901719646659603*^9, 3.901732202315456*^9, 
   3.901732959514056*^9, 3.901809919155314*^9, 3.90181079510271*^9, 
   3.90181082663065*^9, 3.902003791596984*^9, 3.902003898581715*^9, {
   3.902005779991132*^9, 3.902005797829569*^9}, 3.902007106326487*^9, 
   3.902007631706079*^9, 3.9020773915967293`*^9, 3.9020809316676903`*^9, 
   3.902095789318085*^9, 3.902177363739702*^9, 3.9021774338320413`*^9, 
   3.902178918550817*^9, 3.902179670193183*^9, 3.902179828871832*^9, 
   3.902180096598445*^9, 3.9021807233493433`*^9, 3.902181045932246*^9, 
   3.9022604719487*^9, 3.902262426395798*^9, 3.902263034472621*^9, 
   3.902263169067651*^9, 3.902334462225766*^9, 3.90233785677856*^9, 
   3.902350670384963*^9, 3.902354968789977*^9, 3.902752795792282*^9, 
   3.902753801841178*^9, 3.907092812442205*^9, 3.907095532452844*^9, 
   3.907858804858317*^9, 3.919011106606886*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"0aabd51d-71ce-47f5-b955-d5ab3df8e6a2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"10", "+", 
  RowBox[{"19", "I", " "}]}]], "Input",
 CellChangeTimes->{{3.901715898407238*^9, 3.901715966250394*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"784c6450-bd15-467c-ad79-98d1a26bb0eb"],

Cell[BoxData[
 RowBox[{"10", "+", 
  RowBox[{"19", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{{3.901715905867909*^9, 3.901715913244644*^9}, 
   3.901715967991275*^9, 3.901719646690208*^9, 3.901732202347007*^9, 
   3.901732959519401*^9, 3.901809919161098*^9, 3.901810795126872*^9, 
   3.901810826634933*^9, 3.902003791600486*^9, 3.902003898606375*^9, {
   3.90200577999579*^9, 3.902005797834249*^9}, 3.902007106350719*^9, 
   3.9020076317107763`*^9, 3.902077391607456*^9, 3.9020809316898727`*^9, 
   3.902095789340021*^9, 3.902177363765439*^9, 3.902177433853028*^9, 
   3.902178918573163*^9, 3.902179670214326*^9, 3.902179828876961*^9, 
   3.902180096602655*^9, 3.902180723378683*^9, 3.902181045937402*^9, 
   3.9022604719528723`*^9, 3.902262426418064*^9, 3.902263034491661*^9, 
   3.902263169072709*^9, 3.90233446223355*^9, 3.902337856787553*^9, 
   3.90235067039006*^9, 3.9023549782967157`*^9, 3.902752798238907*^9, 
   3.902753801860457*^9, 3.907092832047048*^9, 3.907095532470755*^9, 
   3.907858804872777*^9, 3.919011106610148*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"a43ceb61-3148-45a3-b91d-8372bba02ef3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Precision", "[", "I", "]"}], ",", 
   RowBox[{"Precision", "[", 
    RowBox[{"1", "+", 
     RowBox[{"0.3", "I"}]}], "]"}], ",", 
   RowBox[{"FullForm", "[", 
    RowBox[{"11", "+", 
     RowBox[{"1", "I"}]}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.901718099657228*^9, 3.9017180996593013`*^9}, {
  3.90171822370197*^9, 3.901718240783491*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"85e6f87c-50cd-442f-b47e-77dfa213187b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\[Infinity]", ",", "MachinePrecision", ",", 
   TagBox[
    StyleBox[
     RowBox[{"Complex", "[", 
      RowBox[{"11", ",", "1"}], "]"}],
     ShowSpecialCharacters->False,
     ShowStringCharacters->True,
     NumberMarks->True],
    FullForm]}], "}"}]], "Output",
 CellChangeTimes->{
  3.901718243062055*^9, 3.901719646697204*^9, 3.901732202356021*^9, 
   3.9017329595278597`*^9, 3.901809919185091*^9, 3.901810795131315*^9, 
   3.9018108266386023`*^9, 3.902003791608981*^9, 3.902003898610955*^9, {
   3.9020057799997063`*^9, 3.9020057978562937`*^9}, 3.902007106355556*^9, 
   3.9020076317148433`*^9, 3.902077391627095*^9, 3.902080931698361*^9, 
   3.902095789348819*^9, 3.90217736377567*^9, 3.9021774338579807`*^9, 
   3.902178918578458*^9, 3.902179670218986*^9, 3.9021798288992357`*^9, 
   3.902180096609201*^9, 3.902180723383986*^9, 3.90218104596064*^9, 
   3.90226047195669*^9, 3.902262426423324*^9, 3.902263034496903*^9, 
   3.902263169077183*^9, 3.902334462252658*^9, 3.9023378568076982`*^9, 
   3.902350670395612*^9, 3.902354988397162*^9, 3.902752800103092*^9, 
   3.902753801864998*^9, 3.907092887374727*^9, 3.907095532474906*^9, 
   3.907858804877694*^9, 3.919011106615719*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"3d63899a-8cd1-43fd-a688-5e991bc4760a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"1", "+", "I"}], "//", "AtomQ"}]], "Input",
 CellChangeTimes->{{3.901719470717078*^9, 3.901719478941946*^9}, {
   3.901719515814192*^9, 3.90171952127746*^9}, 3.9017196323942738`*^9},
 CellLabel->"In[11]:=",ExpressionUUID->"e764bbec-6457-4bdd-a8da-9519f68985b2"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.901719471688917*^9, 3.901719479304756*^9}, {
   3.901719518850877*^9, 3.9017195258501053`*^9}, {3.901719633924722*^9, 
   3.901719646716613*^9}, 3.901732202387863*^9, 3.901732959556292*^9, 
   3.901809919189369*^9, 3.901810795134838*^9, 3.901810826661086*^9, 
   3.902003791625718*^9, 3.902003898614628*^9, {3.9020057800219603`*^9, 
   3.902005797860933*^9}, 3.9020071063594027`*^9, 3.90200763171871*^9, 
   3.9020773916358223`*^9, 3.902080931717833*^9, 3.9020957893681493`*^9, 
   3.902177363800415*^9, 3.902177433862033*^9, 3.902178918583386*^9, 
   3.90217967022301*^9, 3.902179828904347*^9, 3.902180096627418*^9, 
   3.9021807234060497`*^9, 3.9021810459656982`*^9, 3.902260471961916*^9, 
   3.902262426427623*^9, 3.90226303450121*^9, 3.902263169098001*^9, 
   3.902334462256534*^9, 3.9023378568125076`*^9, 3.902350670402004*^9, 
   3.902355019681288*^9, 3.902752801982682*^9, 3.90275380188667*^9, 
   3.907092890866682*^9, 3.907095532490931*^9, 3.9078588048813*^9, 
   3.9190111066251574`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"b3f31e8b-8054-467e-8f06-c2f8c4b9d74c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ReIm", "[", 
    RowBox[{"1", "+", 
     RowBox[{"3", "I"}]}], "]"}], ",", 
   RowBox[{"Re", "[", 
    RowBox[{"1", "+", 
     RowBox[{"0.3", "I"}]}], "]"}], ",", 
   RowBox[{"Im", "[", 
    RowBox[{"Complex", "[", 
     RowBox[{"1", ",", "0.2"}], "]"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.901719483038159*^9, 3.9017194847986503`*^9}, {
   3.901719528054994*^9, 3.9017195312106547`*^9}, 3.901719625318634*^9},
 CellLabel->"In[12]:=",ExpressionUUID->"3448497f-b6c0-46ce-9791-4e82828e10f1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}], ",", "1.`", ",", "0.2`"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.901719531717654*^9, 3.901719646721676*^9, 3.9017322023976607`*^9, 
   3.901732959560975*^9, 3.901809919215032*^9, 3.9018107951384583`*^9, 
   3.901810826665428*^9, 3.902003791630094*^9, 3.902003898620198*^9, {
   3.902005780027211*^9, 3.902005797864821*^9}, 3.9020071063643093`*^9, 
   3.902007631723414*^9, 3.902077391656052*^9, 3.902080931722542*^9, 
   3.9020957893731623`*^9, 3.902177363807685*^9, 3.902177433866065*^9, 
   3.9021789186066017`*^9, 3.902179670228128*^9, 3.9021798289085817`*^9, 
   3.902180096632268*^9, 3.902180723411289*^9, 3.902181045969994*^9, 
   3.902260471976639*^9, 3.9022624264341583`*^9, 3.902263034507441*^9, 
   3.902263169103303*^9, 3.9023344622770452`*^9, 3.902337856833642*^9, 
   3.902350670417131*^9, 3.902355022422866*^9, 3.902752803827197*^9, 
   3.9027538018912277`*^9, 3.907092912847503*^9, 3.9070955324952583`*^9, 
   3.9078588048897133`*^9, 3.919011106631177*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"33cb0f04-d8a5-4a21-b533-7068d256da1d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Accuracy", "[", "\[Pi]", "]"}], ",", 
    RowBox[{"Precision", "[", "E", "]"}], ",", 
    RowBox[{"Accuracy", "[", "I", "]"}], ",", 
    RowBox[{"Precision", "[", "GoldenRatio", "]"}]}], "}"}], "//", 
  "NumberQ"}]], "Input",
 CellChangeTimes->{{3.901719787460349*^9, 3.901719819361008*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"4e2c2688-db1b-4ed8-8aa8-12352b982421"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{{3.901719791864306*^9, 3.9017198198390627`*^9}, 
   3.901732202430245*^9, 3.901732959590145*^9, 3.901809919219316*^9, 
   3.901810795158367*^9, 3.901810826669137*^9, 3.902003791633822*^9, 
   3.90200389863935*^9, {3.902005780031028*^9, 3.902005797868623*^9}, 
   3.902007106383416*^9, 3.902007631744746*^9, 3.902077391662776*^9, 
   3.90208093172641*^9, 3.9020957893938923`*^9, 3.902177363832255*^9, 
   3.902177433886228*^9, 3.902178918611904*^9, 3.902179670249138*^9, 
   3.902179828912756*^9, 3.902180096652855*^9, 3.902180723415618*^9, 
   3.902181045974251*^9, 3.90226047198106*^9, 3.902262426451934*^9, 
   3.902263034526681*^9, 3.902263169107743*^9, 3.90233446228103*^9, 
   3.902337856838455*^9, 3.9023506704226108`*^9, 3.9023550320012827`*^9, 
   3.902752806663773*^9, 3.9027538018947067`*^9, 3.907092918217691*^9, 
   3.907095532498699*^9, 3.907858804893589*^9, 3.91901110664081*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"ef02e105-610e-4ba8-be2e-bd55e005dbdd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"NumberQ", "[", 
    RowBox[{"1", "/", "2"}], "]"}], ",", 
   RowBox[{"NumberQ", "[", "1", "]"}], ",", 
   RowBox[{"NumberQ", "[", "E", "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.90172346356542*^9, 3.901723463568385*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"f5aaf00d-6b35-436c-b77d-3fe9bf7160cf"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"True", ",", "True", ",", "False"}], "}"}]], "Output",
 CellChangeTimes->{
  3.901723464776656*^9, 3.901732202439065*^9, 3.901732959594586*^9, 
   3.901809919223881*^9, 3.901810795162561*^9, 3.901810826674406*^9, 
   3.90200379163882*^9, 3.902003898643805*^9, {3.902005780034897*^9, 
   3.902005797872486*^9}, 3.902007106388155*^9, 3.9020076317495947`*^9, 
   3.9020773916844053`*^9, 3.902080931730344*^9, 3.9020957893988442`*^9, 
   3.902177363840808*^9, 3.902177433891149*^9, 3.902178918616873*^9, 
   3.902179670254242*^9, 3.90217982891707*^9, 3.902180096657957*^9, 
   3.902180723419908*^9, 3.902181045979392*^9, 3.9022604719848943`*^9, 
   3.90226242645719*^9, 3.902263034531926*^9, 3.902263169112056*^9, 
   3.902334462303652*^9, 3.902337856858264*^9, 3.902350670427006*^9, 
   3.902355041087358*^9, 3.902752808980558*^9, 3.9027538018982563`*^9, 
   3.907092961899878*^9, 3.907095532502023*^9, 3.9078588049079328`*^9, 
   3.919011106646997*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"2a20533c-d8b9-45bc-b81a-df8b6706f6b3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Head", "[", "E", "]"}], ",", 
   RowBox[{"FullForm", "[", "E", "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.9017234705710697`*^9, 3.901723470574239*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"ed116db8-bebb-4a72-beec-00fafa08ea76"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Symbol", ",", 
   TagBox[
    StyleBox["E",
     ShowSpecialCharacters->False,
     ShowStringCharacters->True,
     NumberMarks->True],
    FullForm]}], "}"}]], "Output",
 CellChangeTimes->{
  3.9017234712882433`*^9, 3.901732202462569*^9, 3.901732959620228*^9, 
   3.901809919228462*^9, 3.901810795166241*^9, 3.901810826696911*^9, 
   3.902003791655912*^9, 3.902003898647527*^9, {3.902005780056426*^9, 
   3.90200579789255*^9}, 3.902007106392185*^9, 3.902007631772959*^9, 
   3.902077391691167*^9, 3.9020809317497582`*^9, 3.902095789417538*^9, 
   3.9021773638665447`*^9, 3.902177433895154*^9, 3.9021789186222777`*^9, 
   3.902179670258265*^9, 3.902179828936759*^9, 3.9021800966765203`*^9, 
   3.902180723440475*^9, 3.902181046000244*^9, 3.902260471988571*^9, 
   3.902262426461545*^9, 3.90226303455418*^9, 3.902263169131726*^9, 
   3.902334462307784*^9, 3.902337856863734*^9, 3.9023506704338403`*^9, 
   3.902355049432296*^9, 3.9027528103592577`*^9, 3.902753801916699*^9, 
   3.9070929838990383`*^9, 3.907095532519827*^9, 3.907858804911995*^9, 
   3.919011106657263*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"8a4bb7e5-5eb6-40ed-b49e-f4e636bd38ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", "+", "0.2", "+", 
   RowBox[{"1", "/", "2"}], "+", "1", "+", "11", "+", 
   RowBox[{"1", "I"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.9017316786462812`*^9, 3.901731678649441*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"e63f535f-1435-471d-bff2-370a0e5cb267"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"13.7`", "\[VeryThinSpace]", "+", 
   RowBox[{"1.`", " ", "\[ImaginaryI]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.901731681909422*^9, 3.901732202470806*^9, 3.901732959624829*^9, 
   3.901809919252572*^9, 3.901810795169827*^9, 3.901810826701336*^9, 
   3.902003791660245*^9, 3.902003898651217*^9, {3.9020057800611277`*^9, 
   3.902005797897208*^9}, 3.902007106397735*^9, 3.902007631777871*^9, 
   3.902077391697172*^9, 3.902080931754369*^9, 3.902095789422604*^9, 
   3.9021773638747177`*^9, 3.902177433899138*^9, 3.9021789186431503`*^9, 
   3.902179670262385*^9, 3.902179828941843*^9, 3.902180096681727*^9, 
   3.9021807234458427`*^9, 3.90218104600544*^9, 3.902260472003303*^9, 
   3.902262426467494*^9, 3.902263034559366*^9, 3.902263169137076*^9, 
   3.902334462335017*^9, 3.9023378568872232`*^9, 3.902350670448947*^9, 
   3.902355060033209*^9, 3.902752812148567*^9, 3.902753801921235*^9, 
   3.907093029350423*^9, 3.9070955325239887`*^9, 3.9078588049161263`*^9, 
   3.919011106663315*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"3eeaf08c-221d-43e7-aede-02a8f779155f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rationalize", "[", "2.72", "]"}]], "Input",
 CellChangeTimes->{{3.901731748344541*^9, 3.901731748347603*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"f927ca6f-7855-47ce-a927-c6767067dffd"],

Cell[BoxData[
 FractionBox["68", "25"]], "Output",
 CellChangeTimes->{
  3.9017317493023243`*^9, 3.901732202494701*^9, 3.901732959651396*^9, 
   3.901809919256795*^9, 3.9018107951909*^9, 3.901810826704908*^9, 
   3.902003791663886*^9, 3.902003898670415*^9, {3.902005780065012*^9, 
   3.902005797901133*^9}, 3.902007106416391*^9, 3.902007631781891*^9, 
   3.902077391704528*^9, 3.902080931758288*^9, 3.902095789426797*^9, 
   3.902177363899897*^9, 3.9021774339193287`*^9, 3.902178918648301*^9, 
   3.902179670281045*^9, 3.902179828946114*^9, 3.9021800967033467`*^9, 
   3.90218072345017*^9, 3.9021810460305037`*^9, 3.902260472007655*^9, 
   3.902262426485403*^9, 3.9022630345782623`*^9, 3.9022631691415*^9, 
   3.90233446233976*^9, 3.902337856892782*^9, 3.902350670453888*^9, 
   3.902355068904948*^9, 3.9027528138469143`*^9, 3.902753801941264*^9, 
   3.907093052259783*^9, 3.90709553253933*^9, 3.907858804920987*^9, 
   3.919011106672963*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"cdd02469-388d-439e-81bc-91ac46142366"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ScientificForm", "[", 
    RowBox[{
     RowBox[{"N", "@", "E"}], "/", "1000000"}], "]"}], ",", "2.71828*^-6"}], 
  "}"}]], "Input",
 CellChangeTimes->{{3.901731918300885*^9, 3.901731937112027*^9}, {
  3.901731976789936*^9, 3.901731977161892*^9}, {3.9190050163468513`*^9, 
  3.9190051005011377`*^9}, {3.9190052497348337`*^9, 3.919005265645936*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"0ec70845-54c3-4df1-a717-00c0353f481d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    InterpretationBox[
     StyleBox[
      RowBox[{"\<\"2.71828\"\>", "\[Times]", 
       SuperscriptBox["10", "\<\"-6\"\>"]}],
      ShowStringCharacters->False],
     2.718281828459045*^-6,
     AutoDelete->True],
    ScientificForm], ",", "2.71828`*^-6"}], "}"}]], "Output",
 CellChangeTimes->{
  3.901731937672789*^9, 3.901731977614554*^9, 3.901732202503445*^9, 
   3.901732959656836*^9, 3.9018099192819347`*^9, 3.9018107951952047`*^9, 
   3.901810826709176*^9, 3.902003791667553*^9, 3.902003898675084*^9, {
   3.902005780068851*^9, 3.902005797905401*^9}, 3.902007106421238*^9, 
   3.90200763178589*^9, 3.902077391723443*^9, 3.9020809317639027`*^9, 
   3.9020957894311438`*^9, 3.9021773639074388`*^9, 3.902177433924251*^9, 
   3.9021789186531267`*^9, 3.902179670285985*^9, 3.902179828951133*^9, 
   3.90218009670852*^9, 3.902180723454546*^9, 3.902181046035684*^9, 
   3.902260472025137*^9, 3.902262426490717*^9, 3.9022630345832973`*^9, 
   3.902263169148337*^9, 3.902334462370719*^9, 3.902337856898232*^9, 
   3.902350670472032*^9, 3.902355077971143*^9, 3.90275281506605*^9, 
   3.9027538019457684`*^9, 3.907093065858836*^9, 3.907095532543577*^9, 
   3.9078588049369793`*^9, {3.919005049198638*^9, 3.919005100769957*^9}, {
   3.919005251092062*^9, 3.919005266174465*^9}, 3.919011106677668*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"4115b152-6fe3-4a6a-94ed-f096b893d30c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"13", "/", "7"}], "]"}]], "Input",
 CellChangeTimes->{{3.901732206115281*^9, 3.901732206120233*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"92f0dd6a-7200-4ebf-b59d-94789234836e"],

Cell[BoxData["1.8571428571428572`"], "Output",
 CellChangeTimes->{
  3.901732207002523*^9, 3.901732959683748*^9, 3.901809919286169*^9, 
   3.90181079521526*^9, 3.901810826731502*^9, 3.902003791684419*^9, 
   3.902003898678827*^9, {3.902005780072723*^9, 3.902005797925555*^9}, 
   3.9020071064253273`*^9, 3.902007631807363*^9, 3.902077391729534*^9, 
   3.902080931783502*^9, 3.902095789450417*^9, 3.902177363932473*^9, 
   3.902177433928375*^9, 3.902178918658058*^9, 3.9021796702902107`*^9, 
   3.902179828970793*^9, 3.902180096726914*^9, 3.902180723474958*^9, 
   3.902181046040104*^9, 3.902260472030304*^9, 3.902262426495109*^9, 
   3.902263034604219*^9, 3.902263169167823*^9, 3.902334462376527*^9, 
   3.902337856904923*^9, 3.902350670477251*^9, 3.9023550891393623`*^9, 
   3.902752816979939*^9, 3.902753801949285*^9, 3.90709311956579*^9, 
   3.907095532547004*^9, 3.9078588049409227`*^9, 3.919011106687652*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"87e2c268-756a-4fca-b63c-e151eda08c4b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E", "~", "N", "~", "E"}]], "Input",
 CellChangeTimes->{{3.9017322148748913`*^9, 3.901732248938484*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"0e9ba341-902e-47ef-99d3-065936841b7b"],

Cell[BoxData["2.7182818284590452353`2.718281828459045"], "Output",
 CellChangeTimes->{{3.901732215830399*^9, 3.901732244277722*^9}, 
   3.901732309783812*^9, 3.9017329596880083`*^9, 3.901809919290115*^9, 
   3.9018107952195997`*^9, 3.901810826735821*^9, 3.902003791688856*^9, 
   3.902003898682489*^9, {3.902005780092539*^9, 3.902005797930223*^9}, 
   3.902007106431049*^9, 3.902007631812142*^9, 3.902077391750174*^9, 
   3.902080931788162*^9, 3.902095789455452*^9, 3.902177363941235*^9, 
   3.902177433932309*^9, 3.902178918677903*^9, 3.902179670295046*^9, 
   3.902179828976008*^9, 3.902180096732086*^9, 3.9021807234801617`*^9, 
   3.902181046046433*^9, 3.902260472044807*^9, 3.902262426502285*^9, 
   3.902263034609298*^9, 3.9022631691731243`*^9, 3.902334462405*^9, 
   3.902337856925772*^9, 3.90235067049781*^9, 3.9023550996891527`*^9, 
   3.902752819832108*^9, 3.902753801956555*^9, 3.907093143332767*^9, 
   3.907095532550374*^9, 3.907858804954938*^9, 3.919011106691733*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"7076d166-1a2b-452b-9fc3-df4474dec0dd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"E", "//", "N"}]], "Input",
 CellChangeTimes->{{3.90173231126684*^9, 3.901732312709057*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"b1178bb0-8a17-4de0-a9f3-840291aeb606"],

Cell[BoxData["2.718281828459045`"], "Output",
 CellChangeTimes->{
  3.901732313025344*^9, 3.901732959708082*^9, 3.901809919295449*^9, 
   3.901810795241342*^9, 3.901810826760236*^9, 3.9020037917049837`*^9, 
   3.902003898702983*^9, {3.902005780097109*^9, 3.902005797934106*^9}, 
   3.902007106449671*^9, 3.90200763181609*^9, 3.902077391756041*^9, 
   3.9020809317920303`*^9, 3.902095789459597*^9, 3.902177363968027*^9, 
   3.902177433952815*^9, 3.902178918682941*^9, 3.902179670313192*^9, 
   3.902179828998765*^9, 3.902180096753453*^9, 3.902180723484547*^9, 
   3.902181046067504*^9, 3.902260472049658*^9, 3.902262426519954*^9, 
   3.902263034628392*^9, 3.902263169177485*^9, 3.902334462412557*^9, 
   3.902337856931719*^9, 3.902350670502797*^9, 3.902355106666791*^9, 
   3.902752821195569*^9, 3.902753801972518*^9, 3.907093173563149*^9, 
   3.907095532567058*^9, 3.90785880495893*^9, 3.919011106702674*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"46ae4b1e-b1c1-4474-921b-e1eb1dd97783"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "@", "E"}]], "Input",
 CellChangeTimes->{{3.901732366338656*^9, 3.9017323763975*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"961b3585-7f39-4638-8383-94651288d427"],

Cell[BoxData["2.718281828459045`"], "Output",
 CellChangeTimes->{
  3.901732376878423*^9, 3.9017329597122726`*^9, 3.901809919322806*^9, 
   3.901810795245483*^9, 3.901810826764516*^9, 3.902003791709292*^9, 
   3.902003898707468*^9, {3.9020057801009007`*^9, 3.902005797938766*^9}, 
   3.902007106454433*^9, 3.902007631821768*^9, 3.902077391775667*^9, 
   3.9020809317968073`*^9, 3.902095789464438*^9, 3.902177363975453*^9, 
   3.9021774339575863`*^9, 3.902178918687445*^9, 3.902179670318075*^9, 
   3.902179829003691*^9, 3.902180096758614*^9, 3.9021807234888673`*^9, 
   3.902181046072814*^9, 3.9022604720538383`*^9, 3.902262426525138*^9, 
   3.902263034633664*^9, 3.9022631691827173`*^9, 3.90233446243826*^9, 
   3.902337856954015*^9, 3.902350670518548*^9, 3.902355116222644*^9, 
   3.902752822331603*^9, 3.9027538019767857`*^9, 3.907093175302153*^9, 
   3.907095532572546*^9, 3.907858804963169*^9, 3.919011106706736*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"27a1bda2-a78b-4881-830c-f3837829ffff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["$MachinePrecision"], "Input",
 CellChangeTimes->{{3.9017324604552507`*^9, 3.901732460458283*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"11c22cfc-91c2-413e-89d9-f95ae7b5190b"],

Cell[BoxData["15.954589770191003`"], "Output",
 CellChangeTimes->{
  3.901732461680005*^9, 3.901732959715974*^9, 3.901809919328453*^9, 
   3.901810795249116*^9, 3.901810826768072*^9, 3.902003791712851*^9, 
   3.902003898726373*^9, {3.9020057801053*^9, 3.9020057979589157`*^9}, 
   3.902007106458355*^9, 3.90200763184305*^9, 3.902077391783783*^9, 
   3.902080931816167*^9, 3.902095789483363*^9, 3.902177364005001*^9, 
   3.90217743396163*^9, 3.902178918692087*^9, 3.902179670322206*^9, 
   3.9021798290079517`*^9, 3.902180096778112*^9, 3.902180723509323*^9, 
   3.902181046096244*^9, 3.902260472060174*^9, 3.9022624265294123`*^9, 
   3.902263034654685*^9, 3.902263169202177*^9, 3.902334462443243*^9, 
   3.902337856959277*^9, 3.902350670524561*^9, 3.902355129947541*^9, 
   3.90275282411363*^9, 3.902753801981538*^9, 3.907093177165408*^9, 
   3.907095532587442*^9, 3.907858804966859*^9, 3.9190111067099323`*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"9be2f833-9263-4934-a61b-fc792acd1854"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetPrecision", "[", 
  RowBox[{"E", ",", "17"}], "]"}]], "Input",
 CellChangeTimes->{{3.9017325581890388`*^9, 3.901732561408587*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"4070a649-cd1f-4837-9d9f-d7b30e4c567d"],

Cell[BoxData["2.71828182845904523535935743172980714738`17."], "Output",
 CellChangeTimes->{
  3.901732561658559*^9, 3.9017329597196217`*^9, 3.901809919345972*^9, 
   3.9018107952527103`*^9, 3.901810826771714*^9, 3.902003791716399*^9, 
   3.902003898730811*^9, {3.902005780125655*^9, 3.902005797963604*^9}, 
   3.902007106464085*^9, 3.902007631847909*^9, 3.902077391802765*^9, 
   3.902080931820828*^9, 3.902095789488424*^9, 3.902177364013246*^9, 
   3.902177433965624*^9, 3.9021789187125483`*^9, 3.902179670326584*^9, 
   3.90217982901213*^9, 3.902180096783387*^9, 3.902180723514518*^9, 
   3.902181046101433*^9, 3.902260472074851*^9, 3.902262426535243*^9, 
   3.902263034659939*^9, 3.902263169207344*^9, 3.902334462465214*^9, 
   3.902337856964308*^9, 3.902350670529286*^9, 3.902355138034634*^9, 
   3.902752825413513*^9, 3.9027538019872437`*^9, 3.907093178776736*^9, 
   3.907095532591632*^9, 3.907858804980981*^9, 3.919011106714038*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"346a9a24-8322-41df-aac2-1daa03ac48ec"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetPrecision", "[", 
  RowBox[{"E", ",", "MachinePrecision"}], "]"}]], "Input",
 CellChangeTimes->{{3.901732597715548*^9, 3.901732600030983*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"99c4df2d-a428-4947-a2a3-0d4fe19bfb02"],

Cell[BoxData["2.718281828459045`"], "Output",
 CellChangeTimes->{
  3.901732600386576*^9, 3.9017329597422943`*^9, 3.901809919349949*^9, 
   3.901810795257676*^9, 3.901810826794898*^9, 3.902003791734561*^9, 
   3.902003898734558*^9, {3.90200578013031*^9, 3.902005797967598*^9}, 
   3.902007106482914*^9, 3.90200763185184*^9, 3.902077391808322*^9, 
   3.902080931824759*^9, 3.902095789492506*^9, 3.902177364024137*^9, 
   3.902177433986102*^9, 3.902178918717832*^9, 3.902179670345319*^9, 
   3.902179829034638*^9, 3.90218009680577*^9, 3.902180723535312*^9, 
   3.902181046105795*^9, 3.902260472079744*^9, 3.902262426552704*^9, 
   3.902263034679462*^9, 3.902263169211747*^9, 3.90233446247047*^9, 
   3.90233785696957*^9, 3.902350670535593*^9, 3.902355147715957*^9, 
   3.902752826982029*^9, 3.902753802006306*^9, 3.9070931806908293`*^9, 
   3.907095532606919*^9, 3.907858804984893*^9, 3.919011106723578*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"38456902-3544-4e37-bce4-a6ce9b862409"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"SetPrecision", "[", 
   RowBox[{"E", ",", "MachinePrecision"}], "]"}], "==", 
  RowBox[{"N", "@", "E"}]}]], "Input",
 CellChangeTimes->{{3.901732693789356*^9, 3.901732716401139*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"0115a754-ab47-46bb-8001-9af01720dbfe"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.901732702161875*^9, 3.901732716869877*^9}, 
   3.9017329597466187`*^9, 3.9018099193537683`*^9, 3.901810795261297*^9, 
   3.901810826799264*^9, 3.902003791739049*^9, 3.902003898738314*^9, {
   3.902005780134213*^9, 3.9020057979719057`*^9}, 3.902007106487765*^9, 
   3.902007631856504*^9, 3.90207739181387*^9, 3.902080931830657*^9, 
   3.902095789497361*^9, 3.902177364053165*^9, 3.902177436007613*^9, 
   3.902178918738629*^9, 3.902179670350398*^9, 3.902179829039806*^9, 
   3.902180096811032*^9, 3.9021807235405607`*^9, 3.902181046112292*^9, 
   3.90226047209543*^9, 3.902262426557897*^9, 3.902263034684815*^9, 
   3.90226316921634*^9, 3.902334462475205*^9, 3.902337856989471*^9, 
   3.902350670551299*^9, 3.902355161284948*^9, 3.9027528281818333`*^9, 
   3.90275380201082*^9, 3.90709318213498*^9, 3.907095532611158*^9, 
   3.907858804998723*^9, 3.919011106730619*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"187f1700-d50e-4ad3-9628-5711c4c7eea5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"77", "/", "3`6"}]], "Input",
 CellChangeTimes->{{3.901732899863571*^9, 3.901732899866271*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"92428ad3-0b13-4e9b-826b-3ab637bc2b3d"],

Cell[BoxData["25.6666666666666666653`6."], "Output",
 CellChangeTimes->{
  3.901732901133437*^9, 3.901732959750474*^9, 3.901809919357203*^9, 
   3.901810795280842*^9, 3.9018108268028717`*^9, 3.902003791755917*^9, 
   3.902003898758019*^9, {3.902005780139724*^9, 3.902005797992177*^9}, 
   3.902007106491667*^9, 3.902007631877951*^9, 3.902077391820614*^9, 
   3.9020809318499928`*^9, 3.9020957895165358`*^9, 3.902177364062584*^9, 
   3.902177436154497*^9, 3.902178918743985*^9, 3.902179670354597*^9, 
   3.902179829044087*^9, 3.902180096815422*^9, 3.902180723560952*^9, 
   3.902181046133472*^9, 3.902260472100582*^9, 3.9022624265622263`*^9, 
   3.902263034706108*^9, 3.902263169235731*^9, 3.902334462482031*^9, 
   3.902337856994287*^9, 3.902350670556403*^9, 3.902355175314159*^9, 
   3.902752829280879*^9, 3.902753802015487*^9, 3.907093183422769*^9, 
   3.907095532614583*^9, 3.907858805003964*^9, 3.919011106739894*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"4067fc41-a695-4399-96bd-0fcacde732f0"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["2.1.2 Working with Digits", "Subsection",
 CellChangeTimes->{{3.9023552455371513`*^9, 3.9023552544381027`*^9}, {
  3.902355291479961*^9, 
  3.902355293575304*^9}},ExpressionUUID->"d22e0bf0-fd67-4c6b-8121-\
0fa625806a34"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegerDigits", "[", "234544553", "]"}]], "Input",
 CellChangeTimes->{{3.9017330669141617`*^9, 3.90173306691722*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"e699e36e-7116-4173-be08-cda2d8e6c7fa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2", ",", "3", ",", "4", ",", "5", ",", "4", ",", "4", ",", "5", ",", "5", 
   ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{
  3.901733067746935*^9, 3.901809919375229*^9, 3.901810795285178*^9, 
   3.901810826808088*^9, 3.902003791760295*^9, 3.902003898762549*^9, {
   3.9020057801595078`*^9, 3.902005797996849*^9}, 3.902007106497541*^9, 
   3.902007631883008*^9, 3.902077391837882*^9, 3.902080931854663*^9, 
   3.902095789521665*^9, 3.902177364093585*^9, 3.902177436185863*^9, 
   3.902178918764202*^9, 3.902179670358773*^9, 3.902179829050517*^9, 
   3.902180096822623*^9, 3.902180723566131*^9, 3.902181046138837*^9, 
   3.902260472104813*^9, 3.902262426569167*^9, 3.9022630347114*^9, 
   3.902263169241002*^9, 3.90233446250773*^9, 3.902337856998898*^9, 
   3.902350670561289*^9, {3.90235537973451*^9, 3.902355390755994*^9}, 
   3.902752975543655*^9, 3.90275380202199*^9, 3.90709335374358*^9, 
   3.907095532618029*^9, 3.907858805017603*^9, 3.919011106743845*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"664653d1-a337-4e8d-81b4-225b48ad4523"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"RealDigits", "[", "321.4546554", "]"}], ",", 
   RowBox[{"RealDigits", "[", 
    RowBox[{"N", "@", "E"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.901733092310807*^9, 3.901733095863578*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"16a7f1bb-de84-4cae-af9d-162d3444c228"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "3", ",", "2", ",", "1", ",", "4", ",", "5", ",", "4", ",", "6", ",", 
       "5", ",", "5", ",", "4", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0"}], "}"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "2", ",", "7", ",", "1", ",", "8", ",", "2", ",", "8", ",", "1", ",", 
       "8", ",", "2", ",", "8", ",", "4", ",", "5", ",", "9", ",", "0", ",", 
       "4", ",", "5"}], "}"}], ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.901733096404183*^9, 3.901809919379225*^9, 3.901810795289044*^9, 
   3.9018108268308077`*^9, 3.902003791764003*^9, 3.9020038987664213`*^9, {
   3.902005780164149*^9, 3.902005798000896*^9}, 3.902007106516185*^9, 
   3.902007631888389*^9, 3.902077391843524*^9, 3.902080931858727*^9, 
   3.9020957895259237`*^9, 3.902177364103221*^9, 3.902177436192596*^9, 
   3.9021789187697144`*^9, 3.902179670377742*^9, 3.902179829070462*^9, 
   3.902180096842215*^9, 3.9021807235868273`*^9, 3.902181046162457*^9, 
   3.902260472110505*^9, 3.902262426586905*^9, 3.9022630347159443`*^9, 
   3.902263169245588*^9, 3.902334462515156*^9, 3.9023378570031238`*^9, 
   3.90235067056882*^9, 3.902355406180708*^9, 3.902752977317701*^9, 
   3.902753802039611*^9, 3.907093358788575*^9, 3.907095532635604*^9, 
   3.907858805022317*^9, 3.919011106754222*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"6181282d-6c5c-4ec4-8a6b-5a6655e1df0d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RealDigits", "[", 
  RowBox[{"ReIm", "[", 
   RowBox[{"113", "+", 
    RowBox[{"2.7213", "I"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.901809931014778*^9, 3.901809931016726*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"e6ec1eda-32ca-4870-8ed1-d299e9a9488a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0"}], "}"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "2", ",", "7", ",", "2", ",", "1", ",", "3", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0"}], "}"}], ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.901809932196224*^9, 3.90181079529292*^9, 3.901810826835223*^9, 
   3.902003791767722*^9, 3.9020038987721453`*^9, {3.902005780168141*^9, 
   3.902005798005831*^9}, 3.9020071065212183`*^9, 3.902007631892634*^9, 
   3.902077391864985*^9, 3.902080931864012*^9, 3.902095789530758*^9, 
   3.902177364131665*^9, 3.902177436199373*^9, 3.9021789187902393`*^9, 
   3.902179670383024*^9, 3.902179829075856*^9, 3.902180096847795*^9, 
   3.902180723592404*^9, 3.902181046167873*^9, 3.902260472125524*^9, 
   3.9022624265923*^9, 3.9022630347232223`*^9, 3.902263169250366*^9, 
   3.902334462547901*^9, 3.902337857024534*^9, 3.902350670584461*^9, 
   3.902355420534152*^9, 3.902752979597024*^9, 3.902753802044322*^9, 
   3.907093360358787*^9, 3.907095532640052*^9, 3.907858805036743*^9, 
   3.919011106758321*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"54f60476-6583-4e9d-96c5-e19e83011537"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RealDigits", "[", 
  RowBox[{"321.4546", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.901809941269517*^9, 3.901809941272578*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"6749b035-b1f6-4072-99f9-8b6571017d7a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
      ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", 
     ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", 
     ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", 
     ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}], ",", "9"}], "}"}]], "Output",
 CellChangeTimes->{
  3.901809942163323*^9, 3.901810795313181*^9, 3.901810826838977*^9, 
   3.902003791784519*^9, 3.902003898791649*^9, {3.902005780172401*^9, 
   3.902005798028191*^9}, 3.902007106525488*^9, 3.902007631914181*^9, 
   3.902077391870878*^9, 3.902080931883573*^9, 3.9020957895500603`*^9, 
   3.902177364139067*^9, 3.902177436233776*^9, 3.902178918795616*^9, 
   3.9021796704017553`*^9, 3.902179829098054*^9, 3.902180096852317*^9, 
   3.902180723597032*^9, 3.902181046172555*^9, 3.9022604721309433`*^9, 
   3.902262426596812*^9, 3.902263034742833*^9, 3.902263169270256*^9, 
   3.90233446255259*^9, 3.902337857030314*^9, 3.9023506705897202`*^9, 
   3.902355434359992*^9, 3.902753080399198*^9, 3.902753802048552*^9, 
   3.9070933629432592`*^9, 3.907095532655424*^9, 3.9078588050411377`*^9, 
   3.9190111067697983`*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"42a90b45-c8f8-43b5-959f-33433a18d4c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RealDigits", "[", 
  RowBox[{
   RowBox[{"N", "@", "E"}], ",", "10", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.901810263078295*^9, 3.9018102647548*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"8ec7688f-8605-467a-8c9b-e0330376c32f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "7", ",", "1"}], "}"}], ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.9018102657936783`*^9, 3.901810795317551*^9, 3.901810826842636*^9, 
   3.902003791789054*^9, 3.902003898796195*^9, {3.902005780194818*^9, 
   3.9020057980330563`*^9}, 3.902007106531143*^9, 3.9020076319191833`*^9, 
   3.902077391890059*^9, 3.902080931888357*^9, 3.90209578955526*^9, 
   3.902177364167723*^9, 3.902177436240931*^9, 3.902178918800585*^9, 
   3.902179670406976*^9, 3.902179829103421*^9, 3.902180096857194*^9, 
   3.9021807236014442`*^9, 3.9021810461792607`*^9, 3.902260472148363*^9, 
   3.902262426602236*^9, 3.902263034748211*^9, 3.902263169275766*^9, 
   3.9023344625583577`*^9, 3.9023378570540333`*^9, 3.902350670594198*^9, 
   3.902355447887151*^9, 3.9027530818134823`*^9, 3.902753802054812*^9, 
   3.907093364893443*^9, 3.907095532659697*^9, 3.907858805054174*^9, 
   3.91901110677383*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"53609a1d-f608-40a8-bb6e-8c3121afb757"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromDigits", "[", 
  RowBox[{"{", 
   RowBox[{"2", ",", "7", ",", "1", ",", "1"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.901810392942823*^9, 3.901810392945792*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"02427a1f-338f-49a4-87e8-c97777b50f96"],

Cell[BoxData["2711"], "Output",
 CellChangeTimes->{
  3.901810393580406*^9, 3.901810795321123*^9, 3.901810826865355*^9, 
   3.902003791805182*^9, 3.902003898799905*^9, {3.902005780199527*^9, 
   3.902005798057388*^9}, 3.902007106549876*^9, 3.902007631941064*^9, 
   3.902077391895544*^9, 3.9020809318923407`*^9, 3.902095789559414*^9, 
   3.902177364174746*^9, 3.902177436271742*^9, 3.90217891880582*^9, 
   3.902179670425611*^9, 3.902179829123246*^9, 3.9021800968768053`*^9, 
   3.902180723621577*^9, 3.902181046200118*^9, 3.902260472153323*^9, 
   3.902262426620079*^9, 3.902263034752674*^9, 3.902263169296461*^9, 
   3.902334462563751*^9, 3.902337857059676*^9, 3.9023506706001043`*^9, 
   3.902355455730598*^9, 3.902753083563011*^9, 3.902753802071108*^9, 
   3.907093366456972*^9, 3.907095532663149*^9, 3.9078588050582123`*^9, 
   3.919011106777122*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"0776be94-d223-4fef-b0eb-eef2d6615f48"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "@", 
  RowBox[{"FromDigits", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "7", ",", "1", ",", "1"}], "}"}], ",", "1"}], "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.9018104020411587`*^9, 3.901810402044299*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"cf658187-84f0-48a0-8cb5-6c357c52ea77"],

Cell[BoxData["2.711`"], "Output",
 CellChangeTimes->{
  3.901810402730073*^9, 3.901810795325283*^9, 3.9018108268696423`*^9, 
   3.902003791809573*^9, 3.902003898804586*^9, {3.9020057802044067`*^9, 
   3.9020057980621033`*^9}, 3.902007106554811*^9, 3.902007631945904*^9, 
   3.902077391914547*^9, 3.902080931897242*^9, 3.90209578956414*^9, 
   3.902177364202373*^9, 3.902177436278681*^9, 3.902178918826462*^9, 
   3.902179670430824*^9, 3.9021798291284842`*^9, 3.9021800992951107`*^9, 
   3.902180723628365*^9, 3.902181048594348*^9, 3.902260472157939*^9, 
   3.902262426625387*^9, 3.902263037159443*^9, 3.902263169301849*^9, 
   3.902334462602811*^9, 3.902337857065208*^9, 3.90235067061551*^9, 
   3.902355462712509*^9, 3.902753084797417*^9, 3.902753802075683*^9, 
   3.90709336787258*^9, 3.907095532666629*^9, 3.907858805071187*^9, 
   3.919011106781625*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"22f5252b-5bdc-44a9-9482-47277a98c070"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegerLength", "[", "2711", "]"}]], "Input",
 CellChangeTimes->{{3.901810817098792*^9, 3.9018108171014214`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"16fa1c76-c9c0-4294-94ab-37e2aad7ad7a"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{
  3.901810826888079*^9, 3.902003791813183*^9, 3.902003898824448*^9, {
   3.902005780208259*^9, 3.902005798066011*^9}, 3.902007106558774*^9, 
   3.902007631949945*^9, 3.902077391919754*^9, 3.902080931916582*^9, 
   3.902095789583211*^9, 3.902177364209351*^9, 3.902177436309657*^9, 
   3.902178918832158*^9, 3.9021796704497766`*^9, 3.902179829149045*^9, 
   3.90218009941171*^9, 3.902180726040078*^9, 3.902181048732444*^9, 
   3.902260472165385*^9, 3.902262426629732*^9, 3.902263037291843*^9, 
   3.902263169321301*^9, 3.90233446260764*^9, 3.902337857070585*^9, 
   3.9023506706204643`*^9, 3.90235546889176*^9, 3.902753085962309*^9, 
   3.902753802079711*^9, 3.907093369367804*^9, 3.9070955326841993`*^9, 
   3.9078588050754757`*^9, 3.9190111067908773`*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"078f2d14-d9b2-4745-9531-6fa329f8d230"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["2.1.3 A Few Mathematical Functions", "Subsection",
 CellChangeTimes->{{3.902355484250943*^9, 
  3.90235550713015*^9}},ExpressionUUID->"0dd632a8-ce6a-49cc-9ec3-\
0a2b31d0922f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cos", "[", "Pi", "]"}]], "Input",
 CellChangeTimes->{{3.9018106373484893`*^9, 3.901810637351879*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"5424b073-2d33-403a-8c57-49cd182db7e4"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{
  3.901810642246196*^9, 3.901810795347816*^9, 3.901810829269735*^9, 
   3.902003791834734*^9, 3.902003898828964*^9, {3.902005780230124*^9, 
   3.902005798070617*^9}, 3.902007106563816*^9, 3.90200763195573*^9, 
   3.902077391938878*^9, 3.90208093192132*^9, 3.902095789588275*^9, 
   3.90217736423757*^9, 3.902177436316449*^9, 3.902178918837696*^9, 
   3.902179670454928*^9, 3.9021798315616293`*^9, 3.902180099435494*^9, 
   3.902180726183744*^9, 3.902181048738129*^9, 3.902260472179786*^9, 
   3.902262426635521*^9, 3.9022630373169613`*^9, 3.902263169326612*^9, 
   3.9023344626335*^9, 3.9023378570910387`*^9, 3.9023506706361427`*^9, 
   3.902355526054584*^9, 3.9027531697458963`*^9, 3.902753802086179*^9, 
   3.90709347593199*^9, 3.907095532695881*^9, 3.9078588050890703`*^9, 
   3.919011106797192*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"59005db4-0d79-4f3b-af43-16237afdebe6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sin", "[", 
   RowBox[{"90", " ", "Degree"}], "]"}], "==", 
  RowBox[{"Sin", "[", 
   RowBox[{"90", "\[Degree]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.901810704268675*^9, 3.901810709771839*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"a7269d0a-6aae-405e-b1f2-4df992048c74"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.901810711413941*^9, 3.9018107953519487`*^9, 3.901810829392997*^9, 
   3.902003791838996*^9, 3.902003898832724*^9, {3.9020057802349157`*^9, 
   3.902005798093031*^9}, 3.902007106582517*^9, 3.902007631977208*^9, 
   3.9020773919438343`*^9, 3.902080931925292*^9, 3.902095789592495*^9, 
   3.9021773642451677`*^9, 3.902177436345951*^9, 3.902178918842928*^9, 
   3.902179670459187*^9, 3.9021798317006693`*^9, 3.9021800994424*^9, 
   3.902180726211583*^9, 3.902181048771481*^9, 3.902260472184811*^9, 
   3.9022624266531677`*^9, 3.902263037326776*^9, 3.902263169348713*^9, 
   3.902334462638032*^9, 3.9023378570965986`*^9, 3.902350670641315*^9, 
   3.902355540530117*^9, 3.902753172641697*^9, 3.902753802102791*^9, 
   3.907093477972204*^9, 3.907095532710926*^9, 3.907858805093184*^9, 
   3.919011106806293*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"d30f8dde-d6e3-4ad0-9e23-0592febfc1c0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sin", "[", 
  RowBox[{"90", "\[Degree]"}], "]"}]], "Input",
 CellChangeTimes->{{3.901810718062351*^9, 3.901810718065618*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"0f826100-5832-4f6c-8b97-d67274b7da61"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.901810719163271*^9, 3.901810795355526*^9, 3.901810829416789*^9, 
   3.902003791858707*^9, 3.902003898838718*^9, {3.902005780239313*^9, 
   3.9020057980977917`*^9}, 3.902007106587386*^9, 3.902007634364427*^9, 
   3.902077391963168*^9, 3.902080931930736*^9, 3.902095789598006*^9, 
   3.902177364272266*^9, 3.902177436354267*^9, 3.902178918863307*^9, 
   3.902179670464814*^9, 3.902179831727792*^9, 3.902180099465751*^9, 
   3.9021807262173376`*^9, 3.902181048782385*^9, 3.902260472189052*^9, 
   3.902262426658478*^9, 3.902263037349822*^9, 3.9022631717514973`*^9, 
   3.902334462642042*^9, 3.902337857118507*^9, 3.902350670645639*^9, 
   3.902355543593948*^9, 3.902753176080596*^9, 3.902753802107349*^9, 
   3.907093479471946*^9, 3.907095532715046*^9, 3.907858805096808*^9, 
   3.9190111068102617`*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"f24db6f8-8a63-4306-9fb2-5421621ac4f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"N", "[", 
  RowBox[{"Cosh", "[", "Pi", "]"}], "]"}], "\n", 
 RowBox[{"N", "[", 
  RowBox[{"Tanh", "[", 
   RowBox[{"45", " ", "Degree"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.901810756650131*^9, 3.901810756653297*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"534e2435-3180-49d7-86bc-841efa70fed0"],

Cell[BoxData["11.591953275521519`"], "Output",
 CellChangeTimes->{
  3.901810757841937*^9, 3.901810795359304*^9, 3.901810829422173*^9, 
   3.9020037918630853`*^9, 3.9020038988577557`*^9, {3.902005780243267*^9, 
   3.90200579810181*^9}, 3.9020071065915422`*^9, 3.9020076344816723`*^9, 
   3.902077391969748*^9, 3.902080931950301*^9, 3.90209578961684*^9, 
   3.902177364279255*^9, 3.902177436380171*^9, 3.902178918868937*^9, 
   3.902179670483341*^9, 3.902179831736338*^9, 3.902180099476952*^9, 
   3.902180726240786*^9, 3.902181048810597*^9, 3.90226047219495*^9, 
   3.902262426662998*^9, 3.902263037359173*^9, 3.902263171887574*^9, 
   3.902334462647566*^9, 3.90233785712429*^9, 3.902350670651477*^9, 
   3.902355560224311*^9, 3.902753184729925*^9, 3.902753802111595*^9, 
   3.907093480935098*^9, 3.90709553271867*^9, 3.9078588051005983`*^9, 
   3.9190111068208647`*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"12a2b5a6-2a47-4d64-abdd-db3e317d822e"],

Cell[BoxData["0.6557942026326724`"], "Output",
 CellChangeTimes->{
  3.901810757841937*^9, 3.901810795359304*^9, 3.901810829422173*^9, 
   3.9020037918630853`*^9, 3.9020038988577557`*^9, {3.902005780243267*^9, 
   3.90200579810181*^9}, 3.9020071065915422`*^9, 3.9020076344816723`*^9, 
   3.902077391969748*^9, 3.902080931950301*^9, 3.90209578961684*^9, 
   3.902177364279255*^9, 3.902177436380171*^9, 3.902178918868937*^9, 
   3.902179670483341*^9, 3.902179831736338*^9, 3.902180099476952*^9, 
   3.902180726240786*^9, 3.902181048810597*^9, 3.90226047219495*^9, 
   3.902262426662998*^9, 3.902263037359173*^9, 3.902263171887574*^9, 
   3.902334462647566*^9, 3.90233785712429*^9, 3.902350670651477*^9, 
   3.902355560224311*^9, 3.902753184729925*^9, 3.902753802111595*^9, 
   3.907093480935098*^9, 3.90709553271867*^9, 3.9078588051005983`*^9, 
   3.919011106821677*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"dadaa0f6-33e2-46f9-94ab-8e1a5af609f6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"N", "[", 
  RowBox[{"ArcTan", "[", "Pi", "]"}], "]"}], "\n", 
 RowBox[{"N", "[", 
  RowBox[{"ArcSinh", "[", 
   RowBox[{"45", " ", "Degree"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.901810842699787*^9, 3.901810843590733*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"6dc8d4db-e303-4f84-89d8-ae150363b546"],

Cell[BoxData["1.2626272556789115`"], "Output",
 CellChangeTimes->{
  3.90181084421846*^9, 3.902003791867507*^9, 3.902003898863241*^9, {
   3.902005780265293*^9, 3.902005798106983*^9}, 3.902007106597733*^9, 
   3.902007634509931*^9, 3.902077391987197*^9, 3.902080931961547*^9, 
   3.902095792109089*^9, 3.902177364310101*^9, 3.902177436387825*^9, 
   3.902178918890748*^9, 3.902179672902076*^9, 3.9021798317637577`*^9, 
   3.902180099500008*^9, 3.9021807262483253`*^9, 3.902181048818251*^9, 
   3.902260472210577*^9, 3.902262426668589*^9, 3.90226303738286*^9, 
   3.90226317189449*^9, 3.9023344626771517`*^9, 3.902337857131298*^9, 
   3.902350670667773*^9, 3.902355562829651*^9, 3.9027531867791777`*^9, 
   3.902753802116214*^9, 3.9070934829232407`*^9, 3.9070955327238398`*^9, 
   3.907858805115005*^9, 3.919011106825478*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"c2f0986d-4e04-4566-9832-75d08f457fd1"],

Cell[BoxData["0.7212254887267798`"], "Output",
 CellChangeTimes->{
  3.90181084421846*^9, 3.902003791867507*^9, 3.902003898863241*^9, {
   3.902005780265293*^9, 3.902005798106983*^9}, 3.902007106597733*^9, 
   3.902007634509931*^9, 3.902077391987197*^9, 3.902080931961547*^9, 
   3.902095792109089*^9, 3.902177364310101*^9, 3.902177436387825*^9, 
   3.902178918890748*^9, 3.902179672902076*^9, 3.9021798317637577`*^9, 
   3.902180099500008*^9, 3.9021807262483253`*^9, 3.902181048818251*^9, 
   3.902260472210577*^9, 3.902262426668589*^9, 3.90226303738286*^9, 
   3.90226317189449*^9, 3.9023344626771517`*^9, 3.902337857131298*^9, 
   3.902350670667773*^9, 3.902355562829651*^9, 3.9027531867791777`*^9, 
   3.902753802116214*^9, 3.9070934829232407`*^9, 3.9070955327238398`*^9, 
   3.907858805115005*^9, 3.919011106826103*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"bed1db08-67a9-4526-a159-967db89793ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Log", "[", "E", "]"}]], "Input",
 CellChangeTimes->{{3.901810911380149*^9, 3.901810911383437*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"b129f256-706e-4997-8d75-6c4c47b440a7"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.901810912936301*^9, 3.902003791874491*^9, 3.902003898867835*^9, {
   3.90200578267844*^9, 3.902005800436944*^9}, 3.902007106617557*^9, 
   3.902007634516671*^9, 3.902077391992814*^9, 3.902080934402343*^9, 
   3.902095792304693*^9, 3.902177364319725*^9, 3.902177436413837*^9, 
   3.902178918897131*^9, 3.902179673041329*^9, 3.902179831770705*^9, 
   3.902180099507503*^9, 3.902180726272975*^9, 3.90218104884852*^9, 
   3.902260472216226*^9, 3.9022624266874*^9, 3.90226303739496*^9, 
   3.90226317192229*^9, 3.9023344626825*^9, 3.902337857137857*^9, 
   3.902350670673594*^9, 3.9023555839122963`*^9, 3.9027532198459797`*^9, 
   3.902753802133524*^9, 3.907093484814435*^9, 3.907095532739915*^9, 
   3.907858805121027*^9, 3.9190111068374853`*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"4504d6d5-c320-4888-b4ec-81bb4398ef0b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Log", "[", 
  RowBox[{"10", ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.90181101840298*^9, 3.901811018406369*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"e34b50cf-95fa-49c0-8f1f-4ea1515f6468"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.901811019043952*^9, 3.9020037918906717`*^9, 3.902003898871709*^9, {
   3.902005782817088*^9, 3.902005800575478*^9}, 3.902007106622505*^9, 
   3.902007634544736*^9, 3.902077391997302*^9, 3.902080934532022*^9, 
   3.902095792311598*^9, 3.902177364347712*^9, 3.9021774364203253`*^9, 
   3.902178918902055*^9, 3.902179673066764*^9, 3.9021798317945147`*^9, 
   3.902180099527585*^9, 3.902180726279023*^9, 3.902181048854735*^9, 
   3.90226047222054*^9, 3.902262426692658*^9, 3.902263037416601*^9, 
   3.902263171928323*^9, 3.9023344627089176`*^9, 3.902337857158362*^9, 
   3.902350670677988*^9, 3.90235559327737*^9, 3.9027532215976562`*^9, 
   3.902753802137988*^9, 3.9070934866366043`*^9, 3.907095532744257*^9, 
   3.9078588051340723`*^9, 3.91901110684146*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"3d292325-6d8d-4ee4-9211-f31ad97c0cc2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Exp", "[", "2", "]"}], "==", 
  RowBox[{"E", "^", "2"}]}]], "Input",
 CellChangeTimes->{{3.901811025125741*^9, 3.901811025128606*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"809ab9bc-b6eb-42d1-b521-a0aca02eb43b"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.901811026166563*^9, 3.902003791894944*^9, 3.902003898892019*^9, {
   3.902005782848069*^9, 3.90200580058049*^9}, 3.902007106626678*^9, 
   3.902007634550594*^9, 3.902077392002989*^9, 3.902080934557159*^9, 
   3.902095792341796*^9, 3.902177364355645*^9, 3.902177436446038*^9, 
   3.9021789189069443`*^9, 3.9021796730721397`*^9, 3.902179831800745*^9, 
   3.902180099532797*^9, 3.902180726285932*^9, 3.902181048880608*^9, 
   3.9022604722273083`*^9, 3.9022624266970387`*^9, 3.902263037424449*^9, 
   3.902263171955851*^9, 3.902334462716386*^9, 3.902337857163879*^9, 
   3.902350670684791*^9, 3.9023556023462467`*^9, 3.902753222883694*^9, 
   3.9027538021546593`*^9, 3.9070934881905336`*^9, 3.907095532747697*^9, 
   3.907858805139002*^9, 3.919011106853056*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"416df51f-fcf5-4bdd-9530-7e92658e3de1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"12", "!"}]], "Input",
 CellChangeTimes->{{3.901811060556473*^9, 3.901811061047089*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"9ce6e0a9-4a64-4637-86a2-51088fb15f09"],

Cell[BoxData["479001600"], "Output",
 CellChangeTimes->{
  3.9018110616707497`*^9, 3.902003791898479*^9, 3.902003901363973*^9, {
   3.902005782856542*^9, 3.902005800611227*^9}, 3.902007106632189*^9, 
   3.9020076345762587`*^9, 3.90207739202005*^9, 3.902080934566216*^9, 
   3.902095792348358*^9, 3.902177364382552*^9, 3.902177436453816*^9, 
   3.902178918929035*^9, 3.90217967307784*^9, 3.90217983182321*^9, 
   3.9021800995555897`*^9, 3.90218072631058*^9, 3.902181048886674*^9, 
   3.902260472241858*^9, 3.902262426702424*^9, 3.9022630374465637`*^9, 
   3.902263171961838*^9, 3.90233446274096*^9, 3.902337857186498*^9, 
   3.9023506706997433`*^9, 3.9023556108249073`*^9, 3.9027532245625687`*^9, 
   3.902753804494764*^9, 3.907093490106192*^9, 3.907095532751131*^9, 
   3.90785880515305*^9, 3.919011106857361*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"863f098e-3b50-40f1-a8c2-0b200423fa1f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Factorial", "[", "12", "]"}]], "Input",
 CellChangeTimes->{{3.901811062336718*^9, 3.9018110718768253`*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"e51e71a4-3e85-441e-bc71-196a82964843"],

Cell[BoxData["479001600"], "Output",
 CellChangeTimes->{
  3.901811072147705*^9, 3.902003791904003*^9, 3.902003901507938*^9, {
   3.902005782883821*^9, 3.9020058006167*^9}, 3.9020071066509657`*^9, 
   3.902007634582096*^9, 3.9020773920249*^9, 3.902080934592181*^9, 
   3.902095792377334*^9, 3.902177364390078*^9, 3.902177436479679*^9, 
   3.902178918934317*^9, 3.902179673099498*^9, 3.90217983182903*^9, 
   3.902180099560936*^9, 3.902180726316471*^9, 3.9021810489121647`*^9, 
   3.90226047224678*^9, 3.902262426720411*^9, 3.902263037452558*^9, 
   3.902263171985969*^9, 3.902334462747753*^9, 3.902337857191581*^9, 
   3.90235067070471*^9, 3.902355614527659*^9, 3.902753226113472*^9, 
   3.902753804640532*^9, 3.907093492156026*^9, 3.90709553276873*^9, 
   3.907858805156912*^9, 3.919011106860723*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"17537581-5f63-4716-87f3-4523e45c3c34"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["2.1.4 Numeric Function", "Subsection",
 CellChangeTimes->{{3.90235562179257*^9, 
  3.902355640686367*^9}},ExpressionUUID->"39f7af74-4055-4cd1-86a6-\
a220c0e187ce"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Round", "[", "8.9", "]"}], 
  RowBox[{"(*", 
   RowBox[{
   "Rounds", " ", "to", " ", "9", " ", "because", " ", "it", " ", "is", " ", 
    "the", " ", "closest", " ", "number"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.901811320574833*^9, 3.9018113205777283`*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"d4e7c94e-d51a-4131-985a-4748d164931d"],

Cell[BoxData["9"], "Output",
 CellChangeTimes->{
  3.901811322245865*^9, 3.9020037943131733`*^9, 3.902003901534568*^9, {
   3.902005782892686*^9, 3.902005800646571*^9}, 3.902007109058407*^9, 
   3.902007634608567*^9, 3.902077392029193*^9, 3.902080934599697*^9, 
   3.902095792397875*^9, 3.9021773644174027`*^9, 3.902177436487095*^9, 
   3.902178918938979*^9, 3.902179673104968*^9, 3.9021798318518343`*^9, 
   3.902180099565976*^9, 3.902180726339465*^9, 3.902181048918304*^9, 
   3.902260472261619*^9, 3.902262429182947*^9, 3.902263037474546*^9, 
   3.902263171991974*^9, 3.902334462771901*^9, 3.902337857196476*^9, 
   3.902350670720385*^9, 3.9023557689696283`*^9, 3.902753332364306*^9, 
   3.9027538046634207`*^9, 3.9070936961206217`*^9, 3.9070955327738647`*^9, 
   3.907858805170465*^9, 3.919011106864493*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"7950219e-4ad9-4abb-bc6a-cfc8fac83c6e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Round", "[", 
   RowBox[{"8.9", ",", "2"}], "]"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Rounds", " ", "to", " ", "8", " ", "because", " ", "it", " ", "is", " ", 
     "the", " ", "closest", " ", "multiple", " ", "of", " ", "2"}], ",", 
    RowBox[{"2", "^", "3"}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.901811365801531*^9, 3.901811365804069*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"7facbf32-c674-44f0-b4c8-aab513297946"],

Cell[BoxData["8"], "Output",
 CellChangeTimes->{
  3.901811366669177*^9, 3.902003794458235*^9, 3.9020039015410757`*^9, {
   3.902005782916435*^9, 3.902005800651971*^9}, 3.902007109188313*^9, 
   3.902007634614512*^9, 3.902077392034831*^9, 3.902080934623275*^9, 
   3.902095792426289*^9, 3.902177364455798*^9, 3.902177436512539*^9, 
   3.902178918943664*^9, 3.902179673110034*^9, 3.902179831857714*^9, 
   3.902180099588606*^9, 3.902180726345377*^9, 3.902181048924073*^9, 
   3.902260472267076*^9, 3.902262429321137*^9, 3.902263037480551*^9, 
   3.902263172016015*^9, 3.9023344627798557`*^9, 3.902337857203469*^9, 
   3.902350670725986*^9, 3.902355779482307*^9, 3.9027533335301843`*^9, 
   3.902753804673763*^9, 3.9070936981068497`*^9, 3.907095532789061*^9, 
   3.907858805175057*^9, 3.91901110687407*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"4b2aa400-8ceb-43c4-8602-3036815a4021"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Floor", "[", "Pi", "]"}]], "Input",
 CellChangeTimes->{{3.901811811867025*^9, 3.901811816304519*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"0c286362-9c49-470b-86f9-7e0afddd45ae"],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{
  3.901811817368335*^9, 3.902003794481789*^9, 3.902003901566725*^9, {
   3.902005782922461*^9, 3.902005800677651*^9}, 3.902007109192882*^9, 
   3.902007634619948*^9, 3.902077392051321*^9, 3.902080934630429*^9, 
   3.902095792434534*^9, 3.902177364462749*^9, 3.90217743652063*^9, 
   3.902178918965199*^9, 3.902179673115253*^9, 3.902179831863057*^9, 
   3.902180099594076*^9, 3.90218072635077*^9, 3.902181048929737*^9, 
   3.90226047227147*^9, 3.9022624293270674`*^9, 3.902263037486332*^9, 
   3.902263172022087*^9, 3.902334462804828*^9, 3.902337857223161*^9, 
   3.902350670730367*^9, 3.902355802882946*^9, 3.90275333584764*^9, 
   3.9027538046931453`*^9, 3.907093700142915*^9, 3.9070955353041277`*^9, 
   3.907858805188044*^9, 3.919011106880563*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"c7acd5ac-87c3-425a-90f0-bda88699f358"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ceiling", "[", "Pi", "]"}]], "Input",
 CellChangeTimes->{{3.901811818039916*^9, 3.901811821187025*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"4aa0a3a3-7795-4de2-a330-a30a8fd1ef87"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{
  3.901811821477137*^9, 3.90200379448926*^9, 3.902003901574345*^9, {
   3.9020057829451933`*^9, 3.902005800682955*^9}, 3.902007109221703*^9, 
   3.902007634644536*^9, 3.902077392056168*^9, 3.9020809346524143`*^9, 
   3.9020957924629116`*^9, 3.902177364492656*^9, 3.9021774365469837`*^9, 
   3.9021789189710693`*^9, 3.902179673136724*^9, 3.902179831885807*^9, 
   3.902180099599424*^9, 3.902180726356175*^9, 3.902181048953195*^9, 
   3.902260472277387*^9, 3.902262429332555*^9, 3.902263037508696*^9, 
   3.902263172027915*^9, 3.9023344628128986`*^9, 3.902337857228121*^9, 
   3.902350670736101*^9, 3.902355805902196*^9, 3.902753343378984*^9, 
   3.9027538046983137`*^9, 3.90709370199191*^9, 3.907095535464517*^9, 
   3.907858805192164*^9, 3.919011106889739*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"8903d848-8641-47eb-9a27-14f7ab30275d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[LeftFloor]", "Pi", "\[RightFloor]"}]], "Input",
 CellChangeTimes->{{3.901811827837034*^9, 3.901811868468327*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"d47fae37-2ac8-41d1-84ad-58d4de1c8762"],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{
  3.901811874530107*^9, 3.902003794512357*^9, 3.9020039016017447`*^9, {
   3.902005782950365*^9, 3.902005800706859*^9}, 3.902007109226781*^9, 
   3.902007634650166*^9, 3.902077392060321*^9, 3.902080934657592*^9, 
   3.902095792470273*^9, 3.902177364500381*^9, 3.902177436553718*^9, 
   3.902178918994198*^9, 3.9021796731422873`*^9, 3.902179831891528*^9, 
   3.902180099606502*^9, 3.90218072637927*^9, 3.902181048960388*^9, 
   3.902260472291988*^9, 3.902262429337831*^9, 3.902263037514533*^9, 
   3.902263172034224*^9, 3.902334462836007*^9, 3.9023378572324977`*^9, 
   3.902350670751123*^9, 3.9023558262327*^9, 3.9027533487099338`*^9, 
   3.902753804720518*^9, 3.907093703544888*^9, 3.907095535490291*^9, 
   3.9078588051957803`*^9, 3.9190111095163603`*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"b7d165af-1ff1-4e18-9fc5-bf7d903c1c1b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[LeftCeiling]", "Pi", "\[RightCeiling]"}]], "Input",
 CellChangeTimes->{{3.9018118775788317`*^9, 3.901811888414213*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"c8eaf79d-1a33-4f15-97cb-2c5a4edb781c"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{
  3.9018118890957623`*^9, 3.902003794517077*^9, 3.9020039016090508`*^9, {
   3.902005782972915*^9, 3.902005800712124*^9}, 3.902007109254088*^9, 
   3.902007634675775*^9, 3.902077392067091*^9, 3.902080934680706*^9, 
   3.902095792499528*^9, 3.90217736452765*^9, 3.902177436579488*^9, 
   3.902178919000209*^9, 3.902179673165184*^9, 3.90217983191642*^9, 
   3.902180099626442*^9, 3.90218072638532*^9, 3.9021810489874177`*^9, 
   3.902260472297114*^9, 3.902262429361528*^9, 3.902263037519685*^9, 
   3.902263172056555*^9, 3.9023344628413987`*^9, 3.902337857238102*^9, 
   3.902350670756198*^9, 3.902355828081748*^9, 3.90275334983249*^9, 
   3.9027538047256727`*^9, 3.907093704767438*^9, 3.907095535496677*^9, 
   3.907858805199339*^9, 3.9190111097337923`*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"d3d0e42c-0be3-4d35-b953-732858f84a1b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rationalize", "[", 
  RowBox[{
   RowBox[{"N", "[", "E", "]"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.901811994075922*^9, 3.901811994078917*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"33ffd86a-da00-4a3a-9e90-a89874620913"],

Cell[BoxData[
 FractionBox["325368125", "119696244"]], "Output",
 CellChangeTimes->{
  3.9018119946258383`*^9, 3.902003794540101*^9, 3.902003901635977*^9, {
   3.902005782978053*^9, 3.902005800717235*^9}, 3.9020071092594023`*^9, 
   3.9020076346816263`*^9, 3.9020773920827417`*^9, 3.902080934685837*^9, 
   3.902095792507108*^9, 3.9021773645364738`*^9, 3.902177436587237*^9, 
   3.902178919023612*^9, 3.902179673170761*^9, 3.9021798319222393`*^9, 
   3.902180099631995*^9, 3.902180726407783*^9, 3.9021810489965153`*^9, 
   3.90226047231223*^9, 3.902262429371241*^9, 3.90226303752514*^9, 
   3.902263172062561*^9, 3.902334462867063*^9, 3.902337857258643*^9, 
   3.9023506707607317`*^9, 3.902355852563186*^9, 3.902753351845004*^9, 
   3.9027538047304487`*^9, 3.907093706157888*^9, 3.907095535523054*^9, 
   3.907858805203978*^9, 3.919011109746192*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"0a2ed0d2-fbaa-46c6-b6d7-555c504e88d6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Max", "[", 
  RowBox[{"{", 
   RowBox[{"9", ",", "8", ",", "7", ",", "0", ",", "3", ",", "12"}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.90200353234182*^9, 3.902003532344212*^9}, {
  3.9190058780073347`*^9, 3.919005881413931*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"58881091-3410-4777-83eb-0c0f772ef30d"],

Cell[BoxData["12"], "Output",
 CellChangeTimes->{
  3.902003794544899*^9, 3.90200390164304*^9, {3.902005782982813*^9, 
   3.902005800722602*^9}, 3.902007109285483*^9, 3.9020076347082844`*^9, 
   3.902077392087564*^9, 3.902080934690608*^9, 3.902095792537861*^9, 
   3.902177364564859*^9, 3.90217743661322*^9, 3.9021789190297413`*^9, 
   3.902179673175912*^9, 3.9021798319275417`*^9, 3.902180099654105*^9, 
   3.902180726413774*^9, 3.902181049023816*^9, 3.902260472317217*^9, 
   3.90226242939255*^9, 3.9022630375467377`*^9, 3.902263172084934*^9, 
   3.902334462871749*^9, 3.902337857263888*^9, 3.902350670767763*^9, 
   3.902355871038414*^9, 3.902753353400289*^9, 3.902753804750909*^9, 
   3.907093708044683*^9, 3.907095535529265*^9, 3.907858805207582*^9, 
   3.919005881902392*^9, 3.919011109751375*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"ae4dc048-4f73-47c8-8a71-d3bdb11001ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Min", "[", 
  RowBox[{"{", 
   RowBox[{"0987", ",", "32", ",", "9871"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.90200354094741*^9, 3.902003540950611*^9}, {
  3.919005883910141*^9, 3.919005885199718*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"0b94c53d-429a-4ddb-b056-2489333e529b"],

Cell[BoxData["32"], "Output",
 CellChangeTimes->{
  3.902003794549378*^9, 3.902003901667809*^9, {3.9020057830064363`*^9, 
   3.90200580074613*^9}, 3.90200710929097*^9, 3.902007634713828*^9, 
   3.9020773921061087`*^9, 3.902080934714238*^9, 3.902095792546605*^9, 
   3.902177364572456*^9, 3.9021774366206503`*^9, 3.902178919035759*^9, 
   3.90217967318086*^9, 3.902179831934314*^9, 3.902180099660307*^9, 
   3.902180726436988*^9, 3.902181049030979*^9, 3.902260472321516*^9, 
   3.9022624293984523`*^9, 3.90226303755272*^9, 3.902263172090748*^9, 
   3.902334462875506*^9, 3.90233785728568*^9, 3.902350670782838*^9, 
   3.902355872839768*^9, 3.902753354782284*^9, 3.9027538047560883`*^9, 
   3.90709370972919*^9, 3.9070955355351467`*^9, 3.907858805220277*^9, 
   3.919005885795442*^9, 3.919011109760579*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"570c42f6-bd84-4636-b8fc-b46368502758"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["2.2 Lists of Objects", "Section",
 CellChangeTimes->{{3.902355887334735*^9, 
  3.902355899813237*^9}},ExpressionUUID->"57604eaa-f431-4417-bb7c-\
0098c0e73d41"],

Cell[CellGroupData[{

Cell["2.2.1 List Representation", "Subsection",
 CellChangeTimes->{{3.9023559185188923`*^9, 
  3.90235593411016*^9}},ExpressionUUID->"9380fd22-21fa-464e-9420-\
39b48ddb1436"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x2", "+", "1"}], ",", "\"\<Dog\>\"", ",", "\[Pi]"}], "}"}], "\n", 

 RowBox[{
  RowBox[{"List", "[", 
   RowBox[{"1", ",", "P", ",", 
    RowBox[{"Power", "[", 
     RowBox[{"3", ",", "2"}], "]"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Power", "[", 
     RowBox[{"3", ",", "2"}], "]"}], " ", "represents", " ", "3", " ", 
    "raised", " ", "to", " ", "the", " ", "power", " ", "of", " ", "2"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.902003588682188*^9, 3.902003588685148*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"827390e3-d7f6-4198-8e01-ab461721c7d3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1", "+", "x2"}], ",", "\<\"Dog\"\>", ",", "\[Pi]"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.902003794571356*^9, 3.902003901673424*^9, {3.902005783011907*^9, 
   3.902005800751627*^9}, 3.9020071093142543`*^9, 3.902007634718973*^9, 
   3.902077392111644*^9, 3.902080934719826*^9, 3.902095792576407*^9, 
   3.90217736460074*^9, 3.902177436649144*^9, 3.902178919041864*^9, 
   3.902179673201811*^9, 3.902179831956987*^9, 3.902180099683189*^9, 
   3.90218072644346*^9, 3.902181049058908*^9, 3.902260472328307*^9, 
   3.902262429419784*^9, 3.902263037575521*^9, 3.902263172114745*^9, 
   3.902334462880344*^9, 3.902337857290916*^9, 3.902350670788538*^9, {
   3.902355943670064*^9, 3.902355970283784*^9}, 3.902753479135795*^9, 
   3.902753554478456*^9, 3.902753675516045*^9, 3.902753804774817*^9, 
   3.907093893506039*^9, 3.907095535558829*^9, 3.907858805225444*^9, 
   3.919011109766136*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"326416ae-7b96-46a2-8416-e64147beccf1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "P", ",", "9"}], "}"}]], "Output",
 CellChangeTimes->{
  3.902003794571356*^9, 3.902003901673424*^9, {3.902005783011907*^9, 
   3.902005800751627*^9}, 3.9020071093142543`*^9, 3.902007634718973*^9, 
   3.902077392111644*^9, 3.902080934719826*^9, 3.902095792576407*^9, 
   3.90217736460074*^9, 3.902177436649144*^9, 3.902178919041864*^9, 
   3.902179673201811*^9, 3.902179831956987*^9, 3.902180099683189*^9, 
   3.90218072644346*^9, 3.902181049058908*^9, 3.902260472328307*^9, 
   3.902262429419784*^9, 3.902263037575521*^9, 3.902263172114745*^9, 
   3.902334462880344*^9, 3.902337857290916*^9, 3.902350670788538*^9, {
   3.902355943670064*^9, 3.902355970283784*^9}, 3.902753479135795*^9, 
   3.902753554478456*^9, 3.902753675516045*^9, 3.902753804774817*^9, 
   3.907093893506039*^9, 3.907095535558829*^9, 3.907858805225444*^9, 
   3.9190111097670727`*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"f83f4e32-2b4d-4c38-af7b-8ad852fd690e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"List", "[", 
  RowBox[{
  "\"\<23.22\>\"", ",", "\"\<Dog\>\"", ",", "\[Pi]", ",", "2", ",", "4", ",", 
   "6", ",", "456.", ",", "56", ",", 
   RowBox[{
    RowBox[{"2", "==", "3"}], "&&", 
    RowBox[{"3", "==", "2"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.902003611415587*^9, 3.902003611418602*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"0b43c544-a73e-4142-b36a-96276cb06c0c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"23.22\"\>", ",", "\<\"Dog\"\>", ",", "\[Pi]", ",", "2", ",", 
   "4", ",", "6", ",", "456.`", ",", "56", ",", "False"}], "}"}]], "Output",
 CellChangeTimes->{
  3.902003794577042*^9, 3.902003901704753*^9, {3.902005783017934*^9, 
   3.9020058007759037`*^9}, 3.902007109321028*^9, 3.902007634725363*^9, 
   3.902077392134205*^9, 3.90208093472587*^9, 3.9020957925858393`*^9, 
   3.90217736461103*^9, 3.902177436657913*^9, 3.902178919067249*^9, 
   3.902179673208741*^9, 3.9021798319656687`*^9, 3.9021800996909437`*^9, 
   3.902180726451333*^9, 3.902181049067885*^9, 3.902260472344285*^9, 
   3.902262429427034*^9, 3.902263037583819*^9, 3.9022631721221743`*^9, 
   3.902334462908744*^9, 3.902337857296411*^9, 3.9023506708062677`*^9, {
   3.902355957363333*^9, 3.902355972816207*^9}, 3.902753482109201*^9, 
   3.902753557481562*^9, 3.902753678504257*^9, 3.9027538047825403`*^9, 
   3.9070938951340737`*^9, 3.907095535566728*^9, 3.907858805239823*^9, 
   3.91901110977942*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"067ea821-da66-482f-b538-918d4b879432"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1", "+", "I"}], ",", 
   RowBox[{"\[Pi]", "+", "\[Pi]"}], ",", "\"\<number 4\>\"", ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"23", " ", "Degree"}], "]"}], ",", 
   RowBox[{"425", "+", "I", "-", "413", "-", 
    RowBox[{"3", "I"}]}], ",", "24", ",", "4456.", ",", 
   RowBox[{"\"\<dog\>\"", "+", "\"\<cat\>\""}]}], "}"}]], "Input",
 CellChangeTimes->{{3.902003783832388*^9, 3.902003783835876*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"5d01efd5-ffef-4c97-b27a-cb675015ed83"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1", "+", "\[ImaginaryI]"}], ",", 
   RowBox[{"2", " ", "\[Pi]"}], ",", "\<\"number 4\"\>", ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"23", " ", "\[Degree]"}], "]"}], ",", 
   RowBox[{"12", "-", 
    RowBox[{"2", " ", "\[ImaginaryI]"}]}], ",", "24", ",", "4456.`", ",", 
   RowBox[{"\<\"cat\"\>", "+", "\<\"dog\"\>"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.902003794581757*^9, 3.902003901710827*^9, {3.9020057830230484`*^9, 
   3.9020058007813787`*^9}, 3.9020071093428383`*^9, 3.90200763475043*^9, 
   3.9020773921394463`*^9, 3.902080934731421*^9, 3.902095792614348*^9, 
   3.902177364637975*^9, 3.90217743668748*^9, 3.902178919074114*^9, 
   3.902179673230042*^9, 3.9021798319887037`*^9, 3.902180099713771*^9, 
   3.9021807264573326`*^9, 3.902181049094996*^9, 3.902260472349643*^9, 
   3.902262429449269*^9, 3.902263037611088*^9, 3.9022631721285043`*^9, 
   3.902334462913483*^9, 3.902337857302457*^9, 3.9023506708118353`*^9, 
   3.902355984867648*^9, 3.90275348362689*^9, 3.902753558358963*^9, 
   3.902753678677975*^9, 3.902753804810378*^9, 3.907093897706936*^9, 
   3.907095535593131*^9, 3.907858805244368*^9, 3.919011109784483*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"5b7da995-9810-44cd-8b91-18c513214d9c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", "Head"}]], "Input",
 CellChangeTimes->{{3.902003948119469*^9, 3.902003957581977*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"581fc232-a59a-43cb-a482-7ff89bac2397"],

Cell[BoxData["List"], "Output",
 CellChangeTimes->{
  3.902003958792839*^9, {3.902005783045045*^9, 3.902005800787241*^9}, 
   3.902007109348675*^9, 3.902007634756893*^9, 3.902077392143938*^9, 
   3.902080934753297*^9, 3.902095792621309*^9, 3.902177364645609*^9, 
   3.902177436694558*^9, 3.902178919097115*^9, 3.9021796732357187`*^9, 
   3.902179831994668*^9, 3.902180099722291*^9, 3.90218072648009*^9, 
   3.902181049102004*^9, 3.902260472354028*^9, 3.90226242945531*^9, 
   3.9022630376178*^9, 3.902263172134544*^9, 3.90233446293987*^9, 
   3.902337857321888*^9, 3.9023506708291473`*^9, 3.902356009499056*^9, 
   3.902753485299098*^9, 3.9027535594826403`*^9, 3.902753679038125*^9, 
   3.902753804816592*^9, 3.907093899466709*^9, 3.907095535599971*^9, 
   3.907858805247768*^9, 3.9190111097948427`*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"d63b82af-5ef4-4d35-8663-05757a5239de"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["2.2.2 Generating Lists", "Subsection",
 CellChangeTimes->{{3.902356014636864*^9, 
  3.902356029495727*^9}},ExpressionUUID->"53d74aa8-2205-4be0-bdf9-\
5480cb710eae"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Range", "[", "10", "]"}], "\n", 
 RowBox[{"Table", "[", 
  RowBox[{"i", ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], "\n", 
 RowBox[{"Table", "[", 
  RowBox[{"\"\<Soccer\>\"", ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "15"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.90200434755506*^9, 3.902004347558144*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"c70875a6-ab1f-4878-9c9f-a5583df0f563"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 
   ",", "9", ",", "10"}], "}"}]], "Output",
 CellChangeTimes->{
  3.902004349143199*^9, {3.902005783050692*^9, 3.902005800792469*^9}, 
   3.902007109370195*^9, 3.902007634781727*^9, 3.902077392150852*^9, 
   3.902080934758814*^9, 3.902095792648703*^9, 3.902177364674601*^9, 
   3.902177436724968*^9, 3.902178919103776*^9, 3.902179673241341*^9, 
   3.902179832018558*^9, 3.902180099745294*^9, 3.902180726488376*^9, 
   3.9021810491320276`*^9, 3.902260472360771*^9, 3.9022624294763403`*^9, 
   3.902263037644554*^9, 3.902263172157118*^9, 3.902334462947194*^9, 
   3.902337857327474*^9, 3.902350670836917*^9, {3.902356048837467*^9, 
   3.902356058950223*^9}, 3.90275348872436*^9, 3.902753560525104*^9, 
   3.902753680408158*^9, 3.902753804843909*^9, 3.907093990945846*^9, 
   3.90709553562673*^9, 3.907858805253854*^9, 3.919011109799807*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"404b2683-3ad5-44b0-a09e-28a65b329de2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 
   ",", "9", ",", "10"}], "}"}]], "Output",
 CellChangeTimes->{
  3.902004349143199*^9, {3.902005783050692*^9, 3.902005800792469*^9}, 
   3.902007109370195*^9, 3.902007634781727*^9, 3.902077392150852*^9, 
   3.902080934758814*^9, 3.902095792648703*^9, 3.902177364674601*^9, 
   3.902177436724968*^9, 3.902178919103776*^9, 3.902179673241341*^9, 
   3.902179832018558*^9, 3.902180099745294*^9, 3.902180726488376*^9, 
   3.9021810491320276`*^9, 3.902260472360771*^9, 3.9022624294763403`*^9, 
   3.902263037644554*^9, 3.902263172157118*^9, 3.902334462947194*^9, 
   3.902337857327474*^9, 3.902350670836917*^9, {3.902356048837467*^9, 
   3.902356058950223*^9}, 3.90275348872436*^9, 3.902753560525104*^9, 
   3.902753680408158*^9, 3.902753804843909*^9, 3.907093990945846*^9, 
   3.90709553562673*^9, 3.907858805253854*^9, 3.919011109800762*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"c2f8e273-259b-44d2-af86-96788f1bfa94"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Soccer\"\>", ",", "\<\"Soccer\"\>", ",", "\<\"Soccer\"\>", 
   ",", "\<\"Soccer\"\>", ",", "\<\"Soccer\"\>", ",", "\<\"Soccer\"\>", 
   ",", "\<\"Soccer\"\>", ",", "\<\"Soccer\"\>", ",", "\<\"Soccer\"\>", 
   ",", "\<\"Soccer\"\>", ",", "\<\"Soccer\"\>", ",", "\<\"Soccer\"\>", 
   ",", "\<\"Soccer\"\>", ",", "\<\"Soccer\"\>", ",", "\<\"Soccer\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.902004349143199*^9, {3.902005783050692*^9, 3.902005800792469*^9}, 
   3.902007109370195*^9, 3.902007634781727*^9, 3.902077392150852*^9, 
   3.902080934758814*^9, 3.902095792648703*^9, 3.902177364674601*^9, 
   3.902177436724968*^9, 3.902178919103776*^9, 3.902179673241341*^9, 
   3.902179832018558*^9, 3.902180099745294*^9, 3.902180726488376*^9, 
   3.9021810491320276`*^9, 3.902260472360771*^9, 3.9022624294763403`*^9, 
   3.902263037644554*^9, 3.902263172157118*^9, 3.902334462947194*^9, 
   3.902337857327474*^9, 3.902350670836917*^9, {3.902356048837467*^9, 
   3.902356058950223*^9}, 3.90275348872436*^9, 3.902753560525104*^9, 
   3.902753680408158*^9, 3.902753804843909*^9, 3.907093990945846*^9, 
   3.90709553562673*^9, 3.907858805253854*^9, 3.9190111098016157`*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"3ff1b2b0-65ef-4498-a396-ad5329467d67"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Table", "[", 
  RowBox[{"\"\<Red and Blue\>\"", ",", "5"}], "]"}], "\n", 
 RowBox[{"Range", "[", 
  RowBox[{
   RowBox[{"-", "5"}], ",", "5"}], "]"}]}], "Input",
 CellChangeTimes->{{3.902004530725726*^9, 3.9020045307287407`*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"a1b488b6-b76f-410c-8256-f4101f855e1b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Red and Blue\"\>", ",", "\<\"Red and Blue\"\>", 
   ",", "\<\"Red and Blue\"\>", ",", "\<\"Red and Blue\"\>", 
   ",", "\<\"Red and Blue\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.9020045317352667`*^9, {3.902005783076392*^9, 3.9020058008181453`*^9}, 
   3.902007109378627*^9, 3.902007634791129*^9, 3.902077392169359*^9, 
   3.902080934784131*^9, 3.902095792658429*^9, 3.902177364686777*^9, 
   3.902177436737759*^9, 3.90217891913069*^9, 3.9021796732495127`*^9, 
   3.902179832028352*^9, 3.9021800997567787`*^9, 3.902180726515385*^9, 
   3.902181049146041*^9, 3.902260472378058*^9, 3.9022624294858494`*^9, 
   3.9022630376560907`*^9, 3.902263172167057*^9, 3.902334462980096*^9, 
   3.902337857351128*^9, 3.902350670855132*^9, 3.902356062121009*^9, 
   3.902753490264032*^9, 3.9027535624282413`*^9, 3.902753681157592*^9, 
   3.902753804855132*^9, 3.90709399360427*^9, 3.907095535639184*^9, 
   3.907858805269432*^9, 3.919011109810957*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"74dc9137-6c4f-4378-97a1-d030fd35bd44"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "5"}], ",", 
   RowBox[{"-", "4"}], ",", 
   RowBox[{"-", "3"}], ",", 
   RowBox[{"-", "2"}], ",", 
   RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", 
   "5"}], "}"}]], "Output",
 CellChangeTimes->{
  3.9020045317352667`*^9, {3.902005783076392*^9, 3.9020058008181453`*^9}, 
   3.902007109378627*^9, 3.902007634791129*^9, 3.902077392169359*^9, 
   3.902080934784131*^9, 3.902095792658429*^9, 3.902177364686777*^9, 
   3.902177436737759*^9, 3.90217891913069*^9, 3.9021796732495127`*^9, 
   3.902179832028352*^9, 3.9021800997567787`*^9, 3.902180726515385*^9, 
   3.902181049146041*^9, 3.902260472378058*^9, 3.9022624294858494`*^9, 
   3.9022630376560907`*^9, 3.902263172167057*^9, 3.902334462980096*^9, 
   3.902337857351128*^9, 3.902350670855132*^9, 3.902356062121009*^9, 
   3.902753490264032*^9, 3.9027535624282413`*^9, 3.902753681157592*^9, 
   3.902753804855132*^9, 3.90709399360427*^9, 3.907095535639184*^9, 
   3.907858805269432*^9, 3.919011109812022*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"68837d51-0f31-4a6c-ba6a-69a1bce85d2e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"i", "^", "i"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.902004591277237*^9, 3.902004620070665*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"3277cf9b-7000-4186-a88b-c36aa4b479c5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "4", ",", "27", ",", "256", ",", "3125"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.902004609092882*^9, 3.902004620848094*^9}, {
   3.902005783107419*^9, 3.902005800849272*^9}, 3.902007109407883*^9, 
   3.902007634824026*^9, 3.902077392198929*^9, 3.9020809348148*^9, 
   3.902095792691741*^9, 3.902177364722218*^9, 3.902177436776875*^9, 
   3.902178919166181*^9, 3.90217967327752*^9, 3.9021798320612497`*^9, 
   3.90218009978846*^9, 3.90218072654743*^9, 3.902181049183662*^9, 
   3.902260472408237*^9, 3.902262429513948*^9, 3.902263037690071*^9, 
   3.902263172198176*^9, 3.9023344629910736`*^9, 3.902337857361676*^9, 
   3.902350670879695*^9, 3.902356095920465*^9, 3.9027534922605653`*^9, 
   3.9027535642943487`*^9, 3.902753683049179*^9, 3.902753804886503*^9, 
   3.907093995723514*^9, 3.90709553566463*^9, 3.907858805274506*^9, 
   3.919011109817374*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"f755fa9f-55b2-413e-a7f2-e1a59a32a284"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"10", "^", "3"}], ",", 
   RowBox[{"{", "5", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.902004663492773*^9, 3.902004663495912*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"70fd793b-52ea-4d89-ac91-18b6fb273709"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1000", ",", "1000", ",", "1000", ",", "1000", ",", "1000"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.902004681606957*^9, {3.902005783112646*^9, 3.902005800855514*^9}, 
   3.902007109413456*^9, 3.902007634848979*^9, 3.902077392203886*^9, 
   3.902080934820247*^9, 3.902095792717352*^9, 3.902177364747787*^9, 
   3.902177436808125*^9, 3.902178919195658*^9, 3.902179673298635*^9, 
   3.902179832086783*^9, 3.902180099811416*^9, 3.90218072655591*^9, 
   3.90218104921113*^9, 3.902260472413408*^9, 3.902262429534751*^9, 
   3.902263037715173*^9, 3.902263172221216*^9, 3.902334462997637*^9, 
   3.902337857367846*^9, 3.902350670886188*^9, 3.902356118001165*^9, 
   3.902753497369361*^9, 3.90275356542625*^9, 3.902753683923143*^9, 
   3.902753804893507*^9, 3.907093998140814*^9, 3.907095535671931*^9, 
   3.90785880528785*^9, 3.919011109826099*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"a5221c2b-e434-423e-8637-4a18a6a9534b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Range", "[", "5", "]"}], ",", 
   RowBox[{"Table", "[", 
    RowBox[{"h", ",", 
     RowBox[{"{", 
      RowBox[{"h", ",", 
       RowBox[{"-", "6"}], ",", "2"}], "}"}]}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.902004777847847*^9, 3.9020047778508267`*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"858bfc5a-192e-4080-a535-eec662588a47"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "6"}], ",", 
     RowBox[{"-", "5"}], ",", 
     RowBox[{"-", "4"}], ",", 
     RowBox[{"-", "3"}], ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "2"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.902004778662038*^9, {3.9020057831174793`*^9, 3.902005800878797*^9}, 
   3.902007109418435*^9, 3.902007634855259*^9, 3.9020773922202673`*^9, 
   3.902080934825705*^9, 3.9020957927230873`*^9, 3.902177364756255*^9, 
   3.902177436815262*^9, 3.90217891920227*^9, 3.9021796733042183`*^9, 
   3.902179832093541*^9, 3.9021800998177643`*^9, 3.902180726582722*^9, 
   3.902181049218755*^9, 3.902260472428701*^9, 3.90226242954077*^9, 
   3.902263037723537*^9, 3.9022631722285357`*^9, 3.902334463033417*^9, 
   3.902337857387087*^9, 3.902350670902062*^9, 3.902356133233225*^9, 
   3.9027534994488897`*^9, 3.9027535693607397`*^9, 3.902753684658601*^9, 
   3.902753804900105*^9, 3.9070940001838093`*^9, 3.907095535695168*^9, 
   3.907858805292368*^9, 3.919011109831828*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"454da55b-f90f-4b8d-9d5f-97f44aed3a77"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{"data2", ",", 
   RowBox[{"{", 
    RowBox[{"data2", ",", "0", ",", "6"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.902004835844755*^9, 3.902004835848268*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"aa2e559f-b47a-4962-979a-ea297aaa73c8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.902004836340311*^9, {3.902005783122739*^9, 3.902005800884353*^9}, 
   3.902007109439859*^9, 3.902007634879988*^9, 3.902077392225435*^9, 
   3.902080934830886*^9, 3.9020957927487917`*^9, 3.902177364777701*^9, 
   3.9021774368477182`*^9, 3.902178919226938*^9, 3.902179673309409*^9, 
   3.902179832120529*^9, 3.902180099843528*^9, 3.902180726590686*^9, 
   3.902181049248447*^9, 3.902260472433965*^9, 3.902262429546551*^9, 
   3.90226303774877*^9, 3.90226317225441*^9, 3.902334463076403*^9, 
   3.9023378573921337`*^9, 3.902350670907362*^9, 3.902356144924755*^9, 
   3.9027535012816677`*^9, 3.9027535706940413`*^9, 3.902753686982298*^9, 
   3.902753804906876*^9, 3.907094002205958*^9, 3.907095535701595*^9, 
   3.907858805305828*^9, 3.9190111098406963`*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"766fbdcc-8a82-41e1-80b9-f121af415f07"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{"11", ",", 
   RowBox[{"{", "2", "}"}], ",", 
   RowBox[{"{", "2", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.902004875961934*^9, 3.902004875964966*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"0b0a1862-c619-4bed-9992-d3ea6a2e57e7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"11", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "11"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.902004877720625*^9, {3.902005783145939*^9, 3.902005800909385*^9}, 
   3.902007109445345*^9, 3.902007634886045*^9, 3.902077392230058*^9, 
   3.9020809348536043`*^9, 3.902095792755533*^9, 3.902177364783621*^9, 
   3.902177436856263*^9, 3.902178919233776*^9, 3.9021796733145123`*^9, 
   3.902179832127585*^9, 3.902180099850701*^9, 3.902180726621323*^9, 
   3.902181049255611*^9, 3.902260472438512*^9, 3.902262429552957*^9, 
   3.902263037756025*^9, 3.902263172261486*^9, 3.902334463099511*^9, 
   3.902337857396617*^9, 3.902350670912324*^9, 3.902356158609361*^9, 
   3.9027535028148603`*^9, 3.902753572060597*^9, 3.902753688693867*^9, 
   3.902753804935958*^9, 3.9070940039168453`*^9, 3.907095535726112*^9, 
   3.907858805310239*^9, 3.9190111098484583`*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"259f915b-f29d-49e9-bf67-0a578baa6ebb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"i", "+", "j", "+", "k"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"j", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.90200496401457*^9, 3.9020049640178223`*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"8d271a59-de23-48e8-b21d-9c44e28bcf5c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", "4", ",", "5", ",", "6"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "6", ",", "7", ",", "8"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "7", ",", "8", ",", "9"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "6", ",", "7", ",", "8"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "7", ",", "8", ",", "9"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "8", ",", "9", ",", "10"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5", ",", "6", ",", "7", ",", "8"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "7", ",", "8", ",", "9"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "8", ",", "9", ",", "10"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8", ",", "9", ",", "10", ",", "11"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"6", ",", "7", ",", "8", ",", "9"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "8", ",", "9", ",", "10"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8", ",", "9", ",", "10", ",", "11"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9", ",", "10", ",", "11", ",", "12"}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.902004964818118*^9, {3.902005783151664*^9, 3.902005800916024*^9}, 
   3.902007109467762*^9, 3.9020076349116983`*^9, 3.90207739223685*^9, 
   3.902080934859146*^9, 3.902095792779715*^9, 3.902177364803401*^9, 
   3.902177436888432*^9, 3.902178919259075*^9, 3.902179673335723*^9, 
   3.902179832154402*^9, 3.902180099877388*^9, 3.902180726630045*^9, 
   3.902181049283847*^9, 3.902260472445647*^9, 3.902262429574029*^9, 
   3.902263037781682*^9, 3.902263172288828*^9, 3.902334463104491*^9, 
   3.902337857402473*^9, 3.902350670918643*^9, 3.902356168757216*^9, 
   3.902753504460413*^9, 3.9027535743122*^9, 3.902753689445667*^9, 
   3.902753804943583*^9, 3.907094006118025*^9, 3.9070955357331543`*^9, 
   3.907858805314684*^9, 3.91901110985774*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"ad2126f1-c0b2-4f95-b34b-48bcb54ad71b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"i", "-", "j"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", 
  "Grid"}]], "Input",
 CellChangeTimes->{{3.90200500198697*^9, 3.902005001990129*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"edbc2dc1-b6bf-490b-aa14-1690449bc896"],

Cell[BoxData[
 TagBox[GridBox[{
    {"0", 
     RowBox[{"-", "1"}]},
    {"1", "0"}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.902005002989558*^9, {3.902005783175151*^9, 3.902005800942514*^9}, 
   3.902007109473643*^9, 3.902007634917935*^9, 3.902077392253502*^9, 
   3.902080934884412*^9, 3.902095792785934*^9, 3.902177364808938*^9, 
   3.90217743689605*^9, 3.902178919265575*^9, 3.902179673341548*^9, 
   3.902179832161449*^9, 3.9021800998855553`*^9, 3.902180726661705*^9, 
   3.902181049291285*^9, 3.902260472461168*^9, 3.902262429580308*^9, 
   3.902263037789434*^9, 3.9022631722984047`*^9, 3.902334463108898*^9, 
   3.902337857421727*^9, 3.902350670934647*^9, 3.902356180641301*^9, 
   3.90275350772814*^9, 3.90275357621527*^9, 3.902753691165843*^9, 
   3.902753804976856*^9, 3.907094008277157*^9, 3.907095535758307*^9, 
   3.9078588053186*^9, 3.919011109863739*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"22eef09d-c1e0-49f1-a584-ca1e5d19452c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"i", "+", "j"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "4", ",", "6"}], "}"}]}], "]"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.902005116616643*^9, 3.902005116619795*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"dc78dd4a-0d90-42c5-8616-42f9c76efaf2"],

Cell[BoxData[
 TagBox[GridBox[{
    {"5", "6", "7"},
    {"6", "7", "8"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.902005117252692*^9, {3.902005783180565*^9, 3.9020058009490337`*^9}, 
   3.902007109480802*^9, 3.902007634943722*^9, 3.902077392259652*^9, 
   3.902080934891513*^9, 3.902095792792911*^9, 3.902177364814488*^9, 
   3.902177436929016*^9, 3.902178919291549*^9, 3.902179673362966*^9, 
   3.9021798321878157`*^9, 3.902180099915222*^9, 3.90218072667187*^9, 
   3.902181049319354*^9, 3.902260472467106*^9, 3.902262429601306*^9, 
   3.902263037816517*^9, 3.902263172328347*^9, 3.902334463114277*^9, 
   3.902337857427248*^9, 3.902350670940725*^9, 3.902356190608753*^9, 
   3.902753509574139*^9, 3.902753577582287*^9, 3.902753692383226*^9, 
   3.9027538049834423`*^9, 3.907094010373118*^9, 3.907095535765003*^9, 
   3.907858805332253*^9, 3.919011109885882*^9},
 CellLabel->
  "Out[74]//TableForm=",ExpressionUUID->"f0c9cdc9-df8f-45dd-b709-\
2426a6918d15"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"i", ",", "j"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "i", ",", "3"}], "}"}]}], "]"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.902005202766626*^9, 3.902005202769244*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"e63d37dd-540a-4238-982e-d05f3664fbf9"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {"1"},
       {"1"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}], GridBox[{
       {"1"},
       {"2"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}], GridBox[{
       {"1"},
       {"3"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {GridBox[{
       {"2"},
       {"2"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}], GridBox[{
       {"2"},
       {"3"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}], "\<\"\"\>"},
    {GridBox[{
       {"3"},
       {"3"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}], "\<\"\"\>", "\<\"\"\>"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  TableForm[{{{1, 1}, {1, 2}, {1, 3}}, {{2, 2}, {2, 3}}, {{3, 
    3}}}]]], "Output",
 CellChangeTimes->{
  3.902005208013633*^9, {3.902005783189148*^9, 3.90200580097914*^9}, 
   3.902007109486829*^9, 3.902007634950179*^9, 3.902077392264934*^9, 
   3.902080934917457*^9, 3.902095792818774*^9, 3.9021773648358183`*^9, 
   3.902177436937964*^9, 3.902178919298115*^9, 3.902179673368904*^9, 
   3.9021798321961946`*^9, 3.9021800999248*^9, 3.902180726702936*^9, 
   3.902181049327687*^9, 3.9022604724723477`*^9, 3.902262429607777*^9, 
   3.902263037825848*^9, 3.902263172337068*^9, 3.902334463143424*^9, 
   3.902337857431744*^9, 3.9023506709465313`*^9, 3.902356203287786*^9, 
   3.902753510977044*^9, 3.90275358146312*^9, 3.902753693449581*^9, 
   3.902753805008199*^9, 3.907094011997662*^9, 3.9070955357892838`*^9, 
   3.907858805338732*^9, 3.919011109891224*^9},
 CellLabel->
  "Out[75]//TableForm=",ExpressionUUID->"e7c39240-a985-4cc3-aa7b-\
3431a29b00cc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"i", ",", "j"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"j", ",", 
     RowBox[{"i", "++"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.902005325642681*^9, 3.902005325646182*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"19033936-a529-4b87-8d68-1df695828ebe"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"3", ",", "2"}], "}"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.9020053260674562`*^9, {3.902005783215634*^9, 3.902005800985249*^9}, 
   3.902007109509324*^9, 3.902007634976223*^9, 3.9020773922701063`*^9, 
   3.902080934923897*^9, 3.90209579282576*^9, 3.9021773648411694`*^9, 
   3.902177436967772*^9, 3.902178919304424*^9, 3.902179673374583*^9, 
   3.902179832224155*^9, 3.902180099954196*^9, 3.902180726711287*^9, 
   3.902181049355542*^9, 3.902260472478072*^9, 3.902262429613719*^9, 
   3.902263037854454*^9, 3.90226317236652*^9, 3.9023344631482983`*^9, 
   3.902337857436156*^9, 3.90235067095242*^9, 3.902356239156921*^9, 
   3.902753512999727*^9, 3.902753585017344*^9, 3.902753695629424*^9, 
   3.9027538050147963`*^9, 3.90709401398505*^9, 3.907095535795721*^9, 
   3.9078588053533983`*^9, 3.919011109907552*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"5fb06fa7-7387-4dad-a9e3-ff8488394c10"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "=", "0"}], ";", 
  RowBox[{"x", "++"}], ";", "x", " ", 
  RowBox[{"(*", 
   RowBox[{
   "applied", " ", "on", " ", "the", " ", "current", " ", "value", " ", "and",
     " ", "shown", " ", "next", " ", "time", " ", "x", " ", "is", " ", 
    "called"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.902005400451193*^9, 3.90200540045417*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"0eba8cde-69f1-4744-9b8e-ca5c446fd9b7"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.9020054166154623`*^9, {3.902005783222715*^9, 3.90200580101371*^9}, 
   3.9020071095154037`*^9, 3.902007634982576*^9, 3.902077392285452*^9, 
   3.902080934949895*^9, 3.9020957928526998`*^9, 3.9021773648589787`*^9, 
   3.902177436975162*^9, 3.902178919328149*^9, 3.902179673380001*^9, 
   3.902179832232195*^9, 3.902180099962294*^9, 3.9021807267417*^9, 
   3.902181049362959*^9, 3.9022604724929132`*^9, 3.90226242961971*^9, 
   3.9022630378614273`*^9, 3.902263172374712*^9, 3.902334463174162*^9, 
   3.902337857455415*^9, 3.902350670968072*^9, 3.902356256622235*^9, 
   3.902753514616799*^9, {3.9027535868931437`*^9, 3.902753638023712*^9}, 
   3.902753696564713*^9, 3.902753805038392*^9, 3.907094015585443*^9, 
   3.90709553580148*^9, 3.907858805357993*^9, 3.919011109913178*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"f132429f-cada-4415-bd70-e8526c641e3c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "x", "]"}], ";", 
  RowBox[{"x", "=", "0"}], ";", 
  RowBox[{"--", "x", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "applied", " ", "on", " ", "the", " ", "current", " ", "value", " ", 
      "and", " ", "shown", " ", "when", " ", "x", " ", "is", " ", "called"}], 
     ";", " ", 
     RowBox[{
      RowBox[{"Clear", "[", "x", "]"}], " ", "to", " ", "clear", " ", 
      "symbol"}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.902005406371942*^9, 3.90200540637531*^9}, {
  3.902753522640825*^9, 3.90275353982986*^9}, {3.902753592629814*^9, 
  3.902753661357364*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"0b3d4242-2492-4df6-aa78-2f3b0f30fba6"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{{3.902753614314033*^9, 3.902753639498385*^9}, 
   3.902753697643208*^9, 3.90275380504542*^9, 3.907094019770645*^9, 
   3.907095535808146*^9, 3.907858805371369*^9, 3.91901110992669*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"92a78bca-2875-43e1-9a50-9c730b88244f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"RandomInteger", "[", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], "/.", " ", 
  RowBox[{"1", "\[Rule]", "2"}]}]], "Input",
 CellChangeTimes->{{3.9020056081500177`*^9, 3.902005635068511*^9}, {
  3.902005688065487*^9, 3.902005765965393*^9}, {3.902356312721498*^9, 
  3.9023563226043463`*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"b9d2919e-383e-46fb-bab0-7351c7e8cfc3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "2", ",", "0", ",", "0", ",", "2", ",", "2", ",", "0", ",", "0", 
   ",", "0", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{{3.902005766780833*^9, 3.902005801041161*^9}, 
   3.902007109543147*^9, 3.902007634994453*^9, 3.902077392294857*^9, 
   3.902080934985057*^9, 3.902095792888282*^9, 3.9021773648828287`*^9, 
   3.902177437013752*^9, 3.902178919358096*^9, 3.902179673406509*^9, 
   3.902179832268322*^9, 3.902180100001132*^9, 3.9021807267804956`*^9, 
   3.902181049398408*^9, 3.902260472513794*^9, 3.9022624296465793`*^9, 
   3.90226303789711*^9, 3.902263172415414*^9, 3.902334463207723*^9, 
   3.902337857464879*^9, 3.9023506709782863`*^9, {3.902356283411187*^9, 
   3.902356332069038*^9}, 3.902753699510137*^9, 3.902753805070911*^9, 
   3.9070940221125517`*^9, 3.907095535828458*^9, 3.9078588053759413`*^9, 
   3.9190111099312563`*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"0f4ca149-0f3e-4e22-a7a3-b50bc5aad7c8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"i", "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]}], "}"}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.919010979022464*^9, 3.919010993505598*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"9c31a8c8-cbe7-4ad0-a602-f0c842eaa543"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "4", ",", "9", ",", "16", ",", "25"}], "}"}]], "Output",
 CellChangeTimes->{3.919010995062451*^9, 3.9190111099466543`*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"a102414e-9275-4b75-88ea-2dd24d43d71a"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["2.2.3 Arrays of Data", "Subsection",
 CellChangeTimes->{{3.902356347328372*^9, 
  3.90235636678399*^9}},ExpressionUUID->"a8c987b8-117d-4179-87b0-\
2fda4f23046d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Array", "[", 
   RowBox[{
    RowBox[{"Cos", "[", 
     RowBox[{"90", " ", "Degree"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "3"}], "}"}]}], "]"}], "//", "Grid"}]], "Input",
 CellChangeTimes->{{3.9020060818236027`*^9, 3.902006081826818*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"7c2def62-86e8-4ffd-ba02-9d2d34eb1a95"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"0", "[", 
      RowBox[{"1", ",", "1"}], "]"}], 
     RowBox[{"0", "[", 
      RowBox[{"1", ",", "2"}], "]"}], 
     RowBox[{"0", "[", 
      RowBox[{"1", ",", "3"}], "]"}]},
    {
     RowBox[{"0", "[", 
      RowBox[{"2", ",", "1"}], "]"}], 
     RowBox[{"0", "[", 
      RowBox[{"2", ",", "2"}], "]"}], 
     RowBox[{"0", "[", 
      RowBox[{"2", ",", "3"}], "]"}]},
    {
     RowBox[{"0", "[", 
      RowBox[{"3", ",", "1"}], "]"}], 
     RowBox[{"0", "[", 
      RowBox[{"3", ",", "2"}], "]"}], 
     RowBox[{"0", "[", 
      RowBox[{"3", ",", "3"}], "]"}]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.90200608236384*^9, 3.902007109565469*^9, 
  3.902007635021791*^9, 3.902077392302129*^9, 3.90208093499222*^9, 
  3.9020957928989897`*^9, 3.902177364887804*^9, 3.902177437075082*^9, 
  3.902178919365073*^9, 3.902179673427414*^9, 3.902179832296579*^9, 
  3.9021801000310917`*^9, 3.902180726789695*^9, 3.902181049426824*^9, 
  3.902260472519329*^9, 3.902262429668062*^9, 3.902263037924921*^9, 
  3.9022631724454117`*^9, 3.9023344632142*^9, 3.902337857470243*^9, 
  3.902350670985277*^9, 3.902603574177337*^9, 3.902753805078062*^9, 
  3.9070943053225737`*^9, 3.907095535834207*^9, 3.907858805390196*^9, 
  3.919011109951529*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"b117913d-236c-413f-b512-37450d141426"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Array", "[", 
   RowBox[{"F", ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "2"}], "}"}]}], "]"}], "//", "Grid"}]], "Input",
 CellChangeTimes->{{3.90200615561584*^9, 3.902006155619342*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"5dba219c-410b-40ad-aecb-516efcb47373"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"F", "[", 
      RowBox[{"1", ",", "1"}], "]"}], 
     RowBox[{"F", "[", 
      RowBox[{"1", ",", "2"}], "]"}]},
    {
     RowBox[{"F", "[", 
      RowBox[{"2", ",", "1"}], "]"}], 
     RowBox[{"F", "[", 
      RowBox[{"2", ",", "2"}], "]"}]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.902006155918687*^9, 3.902007109571238*^9, 
  3.902007635028741*^9, 3.902077392317718*^9, 3.902080935021551*^9, 
  3.902095792930769*^9, 3.9021773649052687`*^9, 3.902177437082659*^9, 
  3.90217891937144*^9, 3.902179673433152*^9, 3.902179832303859*^9, 
  3.902180100040844*^9, 3.902180726820161*^9, 3.902181049434386*^9, 
  3.902260472523972*^9, 3.902262429674251*^9, 3.902263037932179*^9, 
  3.902263172453772*^9, 3.902334463241798*^9, 3.902337857490428*^9, 
  3.902350671000668*^9, 3.902603584599073*^9, 3.902753805101585*^9, 
  3.907094307387093*^9, 3.907095535855525*^9, 3.907858805394714*^9, 
  3.91901110995757*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"9cdf0608-f2db-49c6-9985-8358b48505ac"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ConstantArray", "[", 
  RowBox[{"\[Pi]", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.902006201662519*^9, 3.902006201665873*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"b74aaa9b-dab1-4312-9a9c-80aba46bba72"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\[Pi]", ",", "\[Pi]", ",", "\[Pi]", ",", "\[Pi]", ",", "\[Pi]"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.902006202354681*^9, 3.902007109576236*^9, 
  3.902007635056295*^9, 3.902077392322856*^9, 3.902080935030368*^9, 
  3.9020957929406843`*^9, 3.9021773649100857`*^9, 3.902177437122693*^9, 
  3.9021789193775177`*^9, 3.902179673454521*^9, 3.902179832329941*^9, 
  3.902180100069902*^9, 3.9021807268278017`*^9, 3.902181049461624*^9, 
  3.902260472529963*^9, 3.90226242967982*^9, 3.9022630379588113`*^9, 
  3.902263172482527*^9, 3.902334463247134*^9, 3.902337857495622*^9, 
  3.902350671005785*^9, 3.902603593618096*^9, 3.902753805109066*^9, 
  3.907094309269877*^9, 3.90709553586119*^9, 3.907858805398553*^9, 
  3.919011109963669*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"a8d5c916-740d-42aa-b376-048b1ab5eca8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ConstantArray", "[", 
  RowBox[{"\[Pi]", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.902006245267857*^9, 3.902006245271592*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"6f5997cd-d5cc-4085-ad1c-944a47c21171"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Pi]", ",", "\[Pi]", ",", "\[Pi]", ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Pi]", ",", "\[Pi]", ",", "\[Pi]", ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Pi]", ",", "\[Pi]", ",", "\[Pi]", ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Pi]", ",", "\[Pi]", ",", "\[Pi]", ",", "\[Pi]"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.902006245684211*^9, 3.902007109582178*^9, 
  3.902007635063116*^9, 3.902077392327368*^9, 3.9020809350562763`*^9, 
  3.902095792975295*^9, 3.902177364914198*^9, 3.902177437131652*^9, 
  3.902178919401319*^9, 3.902179673460352*^9, 3.90217983233692*^9, 
  3.902180100078024*^9, 3.9021807268361077`*^9, 3.9021810494693007`*^9, 
  3.902260472544827*^9, 3.902262429685791*^9, 3.902263037965742*^9, 
  3.90226317249072*^9, 3.902334463275537*^9, 3.902337857517338*^9, 
  3.902350671010437*^9, 3.902603604760054*^9, 3.902753805131179*^9, 
  3.907094311006645*^9, 3.9070955358662558`*^9, 3.907858805403424*^9, 
  3.9190111099796333`*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"32dd4768-3ce7-4fb0-8cef-c08990c8f1ef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ConstantArray", "[", 
   RowBox[{"\[Pi]", ",", 
    RowBox[{"{", 
     RowBox[{"4", ",", "4"}], "}"}]}], "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.902006324494721*^9, 3.902006324498178*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"4d5d8be3-96c8-46b8-bc58-815e01dcfe5c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\[Pi]", "\[Pi]", "\[Pi]", "\[Pi]"},
     {"\[Pi]", "\[Pi]", "\[Pi]", "\[Pi]"},
     {"\[Pi]", "\[Pi]", "\[Pi]", "\[Pi]"},
     {"\[Pi]", "\[Pi]", "\[Pi]", "\[Pi]"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.902006325230859*^9, 3.902007109605918*^9, 
  3.9020076350984364`*^9, 3.902077392334016*^9, 3.902080935064747*^9, 
  3.902095792984953*^9, 3.902177364919726*^9, 3.902177437165354*^9, 
  3.902178919410986*^9, 3.902179673482303*^9, 3.9021798323631883`*^9, 
  3.9021801001077423`*^9, 3.902180726843522*^9, 3.902181049498339*^9, 
  3.9022604725502768`*^9, 3.902262429706291*^9, 3.902263037991548*^9, 
  3.9022631725224113`*^9, 3.90233446328052*^9, 3.9023378575226316`*^9, 
  3.902350671017727*^9, 3.902603617410398*^9, 3.902753805138545*^9, 
  3.90709431614753*^9, 3.907095535872027*^9, 3.907858805416986*^9, 
  3.919011109985371*^9},
 CellLabel->
  "Out[85]//MatrixForm=",ExpressionUUID->"68f58493-5474-4465-980a-\
1dbe3c00ce4e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SparseArray", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "\[Rule]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.90200656223202*^9, 3.9020065704550457`*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"93bd1de7-bafd-4dc1-9c11-9f8bc3b99881"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["SparseArray",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"], 
               ImageSizeCache -> {13., {0., 13.}}], Appearance -> None, 
              BaseStyle -> {}, ButtonFunction :> (Typeset`open$$ = True), 
              Evaluator -> Automatic, Method -> "Preemptive"], 
             Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[
             
             RasterBox[{{{0.235431, 0.32765, 0.833291}, {0.772061, 0.92462, 
              0.998703}}, {{0.282325, 0.661868, 0.973082}, {0.235431, 0.32765,
               0.833291}}}, {{0, 0}, {2, 2}}, {0, 1}], AspectRatio -> 1, Axes -> 
             False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> 
             Directive[
               Opacity[0.5], 
               Thickness[Tiny], 
               RGBColor[0.368417, 0.506779, 0.709798]], 
             FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> 
             Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}], 
             Method -> {
              "GridLinesInFront" -> True, "AxisPadding" -> Scaled[0.02], 
               "DefaultBoundaryStyle" -> Automatic, 
               "DefaultGraphicsInteraction" -> {
                "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                 "Effects" -> {
                  "Highlight" -> {"ratio" -> 2}, 
                   "HighlightPoint" -> {"ratio" -> 2}, 
                   "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
               "DefaultPlotStyle" -> Automatic, "DomainPadding" -> 
               Scaled[0.02], "RangePadding" -> Scaled[0.05]}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{"2", ",", "2"}], "}"}], "SummaryItem"]}]}}, 
             AutoDelete -> False, 
             BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> 
          False, BaselinePosition -> {1, 1}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True -> 
        GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], 
              Appearance -> None, BaseStyle -> {}, 
              ButtonFunction :> (Typeset`open$$ = False), Evaluator -> 
              Automatic, Method -> "Preemptive"], 
             Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[
             
             RasterBox[{{{0.235431, 0.32765, 0.833291}, {0.772061, 0.92462, 
              0.998703}}, {{0.282325, 0.661868, 0.973082}, {0.235431, 0.32765,
               0.833291}}}, {{0, 0}, {2, 2}}, {0, 1}], AspectRatio -> 1, Axes -> 
             False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> 
             Directive[
               Opacity[0.5], 
               Thickness[Tiny], 
               RGBColor[0.368417, 0.506779, 0.709798]], 
             FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> 
             Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}], 
             Method -> {
              "GridLinesInFront" -> True, "AxisPadding" -> Scaled[0.02], 
               "DefaultBoundaryStyle" -> Automatic, 
               "DefaultGraphicsInteraction" -> {
                "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                 "Effects" -> {
                  "Highlight" -> {"ratio" -> 2}, 
                   "HighlightPoint" -> {"ratio" -> 2}, 
                   "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
               "DefaultPlotStyle" -> Automatic, "DomainPadding" -> 
               Scaled[0.02], "RangePadding" -> Scaled[0.05]}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{"2", ",", "2"}], "}"}], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Default: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["0", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Density: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["0.5`", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Elements:\"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"\"", "SummaryItem"]}]}, {
               TagBox[
                TagBox[
                 GridBox[{{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", 
                    StyleBox[
                    PaneBox[
                    "1", BaselinePosition -> Baseline, ContentPadding -> 
                    False, FrameMargins -> 0, 
                    ImageSize -> {{1, 300}, Automatic}, StripOnInput -> True],
                     LineBreakWithin -> False]}]}, {
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
                    StyleBox[
                    PaneBox[
                    "2", BaselinePosition -> Baseline, ContentPadding -> 
                    False, FrameMargins -> 0, 
                    ImageSize -> {{1, 300}, Automatic}, StripOnInput -> True],
                     LineBreakWithin -> False]}]}}, DefaultBaseStyle -> 
                  "Column", GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                 "Column"], "SummaryItem"]}}, AutoDelete -> False, 
             BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> 
          False, BaselinePosition -> {1, 1}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  SparseArray[Automatic, {2, 2}, 0, {1, {{0, 1, 2}, {{1}, {2}}}, {1, 2}}],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.9020065662285433`*^9, 3.902006571056774*^9}, 
   3.902007109864653*^9, 3.902007635371163*^9, 3.902077392552025*^9, 
   3.902080935320313*^9, 3.9020957933388834`*^9, 3.902177365109179*^9, 
   3.9021774374655657`*^9, 3.9021789196647043`*^9, 3.902179673722473*^9, 
   3.902179832613489*^9, 3.902180100362243*^9, 3.902180727095107*^9, 
   3.90218104974564*^9, 3.902260472746888*^9, 3.902262429931452*^9, 
   3.90226303824605*^9, 3.902263172771851*^9, 3.902334463479637*^9, 
   3.9023378577115803`*^9, 3.902350671213881*^9, 3.902603629425668*^9, 
   3.902753805393298*^9, 3.907094318003944*^9, 3.9070955360940237`*^9, 
   3.907858805611245*^9, 3.919011110242765*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"63ca2deb-9f01-4fa4-854a-5540159916c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SpArray", "=", 
  RowBox[{"SparseArray", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "\"\<A\>\""}], ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "\"\<A\>\""}], ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "\"\<A\>\""}], ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", "\"\<A\>\""}]}], "}"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"4", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.902006573765872*^9, 3.902006574107091*^9}, {
  3.902006858771278*^9, 3.902006880135109*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"b3bc1842-3ff2-424a-9a62-d0aa1c806400"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["SparseArray",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"], 
               ImageSizeCache -> {13., {0., 13.}}], Appearance -> None, 
              BaseStyle -> {}, ButtonFunction :> (Typeset`open$$ = True), 
              Evaluator -> Automatic, Method -> "Preemptive"], 
             Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[
             RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQ26p8d9wspXP2c4wXbTH/ccX+xSLFx4GrXtmTKs4A
Bg+gNAKMmoNfHAAiwJ5E
              "], {{0, 0}, {4, 4}}, {0, 1}], AspectRatio -> 1, Axes -> False, 
             Frame -> False, FrameLabel -> {None, None}, FrameStyle -> 
             Directive[
               Opacity[0.5], 
               Thickness[Tiny], 
               RGBColor[0.368417, 0.506779, 0.709798]], 
             FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> 
             Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}], 
             Method -> {
              "GridLinesInFront" -> True, "AxisPadding" -> Scaled[0.02], 
               "DefaultBoundaryStyle" -> Automatic, 
               "DefaultGraphicsInteraction" -> {
                "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                 "Effects" -> {
                  "Highlight" -> {"ratio" -> 2}, 
                   "HighlightPoint" -> {"ratio" -> 2}, 
                   "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
               "DefaultPlotStyle" -> Automatic, "DomainPadding" -> 
               Scaled[0.02], "RangePadding" -> Scaled[0.05]}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["4", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{"4", ",", "4"}], "}"}], "SummaryItem"]}]}}, 
             AutoDelete -> False, 
             BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> 
          False, BaselinePosition -> {1, 1}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True -> 
        GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], 
              Appearance -> None, BaseStyle -> {}, 
              ButtonFunction :> (Typeset`open$$ = False), Evaluator -> 
              Automatic, Method -> "Preemptive"], 
             Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[
             RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQ26p8d9wspXP2c4wXbTH/ccX+xSLFx4GrXtmTKs4A
Bg+gNAKMmoNfHAAiwJ5E
              "], {{0, 0}, {4, 4}}, {0, 1}], AspectRatio -> 1, Axes -> False, 
             Frame -> False, FrameLabel -> {None, None}, FrameStyle -> 
             Directive[
               Opacity[0.5], 
               Thickness[Tiny], 
               RGBColor[0.368417, 0.506779, 0.709798]], 
             FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> 
             Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}], 
             Method -> {
              "GridLinesInFront" -> True, "AxisPadding" -> Scaled[0.02], 
               "DefaultBoundaryStyle" -> Automatic, 
               "DefaultGraphicsInteraction" -> {
                "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
                 "Effects" -> {
                  "Highlight" -> {"ratio" -> 2}, 
                   "HighlightPoint" -> {"ratio" -> 2}, 
                   "Droplines" -> {
                    "freeformCursorMode" -> True, 
                    "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
               "DefaultPlotStyle" -> Automatic, "DomainPadding" -> 
               Scaled[0.02], "RangePadding" -> Scaled[0.05]}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["4", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{"4", ",", "4"}], "}"}], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Default: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["0", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Density: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["0.25`", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Elements:\"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"\"", "SummaryItem"]}]}, {
               TagBox[
                TagBox[
                 GridBox[{{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", 
                    StyleBox[
                    PaneBox[
                    "\"A\"", BaselinePosition -> Baseline, ContentPadding -> 
                    False, FrameMargins -> 0, 
                    ImageSize -> {{1, 300}, Automatic}, StripOnInput -> True],
                     LineBreakWithin -> False]}]}, {
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
                    StyleBox[
                    PaneBox[
                    "\"A\"", BaselinePosition -> Baseline, ContentPadding -> 
                    False, FrameMargins -> 0, 
                    ImageSize -> {{1, 300}, Automatic}, StripOnInput -> True],
                     LineBreakWithin -> False]}]}, {
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", 
                    StyleBox[
                    PaneBox[
                    "\"A\"", BaselinePosition -> Baseline, ContentPadding -> 
                    False, FrameMargins -> 0, 
                    ImageSize -> {{1, 300}, Automatic}, StripOnInput -> True],
                     LineBreakWithin -> False]}]}, {
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", 
                    StyleBox[
                    PaneBox[
                    "\"A\"", BaselinePosition -> Baseline, ContentPadding -> 
                    False, FrameMargins -> 0, 
                    ImageSize -> {{1, 300}, Automatic}, StripOnInput -> True],
                     LineBreakWithin -> False]}]}}, DefaultBaseStyle -> 
                  "Column", GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                 "Column"], "SummaryItem"]}}, AutoDelete -> False, 
             BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> 
          False, BaselinePosition -> {1, 1}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  SparseArray[
  Automatic, {4, 4}, 0, {
   1, {{0, 1, 2, 3, 4}, {{1}, {2}, {3}, {4}}}, {"A", "A", "A", "A"}}],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.902006863580653*^9, 3.902006880483125*^9}, 
   3.902007109891009*^9, 3.902007635408764*^9, 3.902077392571871*^9, 
   3.902080935360859*^9, 3.902095793446388*^9, 3.902177365130414*^9, 
   3.902177437507995*^9, 3.902178919695813*^9, 3.902179673754629*^9, 
   3.902179832713737*^9, 3.90218010044942*^9, 3.902180727197304*^9, 
   3.902181049846996*^9, 3.902260472862795*^9, 3.902262429961382*^9, 
   3.90226303833955*^9, 3.9022631728690166`*^9, 3.902334463519746*^9, 
   3.902337857783749*^9, 3.9023506712968607`*^9, 3.902603641808219*^9, 
   3.902753805421859*^9, 3.9070943197108393`*^9, 3.907095536122532*^9, 
   3.9078588056295223`*^9, 3.9190111102644053`*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"5c095bad-6429-4c2a-8f7e-02d5b5af915a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.902007513479898*^9, 3.902007513483015*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"b713f086-708f-40ba-8071-8948ffd6acd0"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"A\"\>", "0", "0", "0"},
     {"0", "\<\"A\"\>", "0", "0"},
     {"0", "0", "\<\"A\"\>", "0"},
     {"0", "0", "0", "\<\"A\"\>"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[
   SparseArray[
    Automatic, {4, 4}, 0, {
     1, {{0, 1, 2, 3, 4}, {{1}, {2}, {3}, {4}}}, {
      "A", "A", "A", "A"}}]]]]], "Output",
 CellChangeTimes->{3.902007514311636*^9, 3.902007635506178*^9, 
  3.902077392578898*^9, 3.902080935370567*^9, 3.90209579345817*^9, 
  3.902177365138487*^9, 3.902177437525033*^9, 3.902178919707977*^9, 
  3.902179673765545*^9, 3.902179832724093*^9, 3.902180100458679*^9, 
  3.902180727207881*^9, 3.902181049858432*^9, 3.902260472870784*^9, 
  3.902262429971818*^9, 3.902263038349698*^9, 3.902263172879727*^9, 
  3.902334463549571*^9, 3.9023378577916617`*^9, 3.902350671305456*^9, 
  3.9026036556286573`*^9, 3.9027538054322243`*^9, 3.9070943218326397`*^9, 
  3.907095536129373*^9, 3.9078588056340437`*^9, 3.9190111102706747`*^9},
 CellLabel->
  "Out[88]//MatrixForm=",ExpressionUUID->"2fc3b467-f13e-4b33-89f8-\
1b684e1dce03"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", "SpArray", "]"}]], "Input",
 CellChangeTimes->{{3.902007605317753*^9, 3.902007605320572*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"8d50d59a-2bb6-4096-be08-d45d59ac9786"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"A\"\>", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "\<\"A\"\>", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "\<\"A\"\>", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "\<\"A\"\>"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.902007616065866*^9, 3.902007635512597*^9}, 
   3.902077392600759*^9, 3.902080935398035*^9, 3.9020957934927273`*^9, 
   3.902177365155873*^9, 3.902177437555437*^9, 3.9021789197342*^9, 
   3.902179673789383*^9, 3.902179832755055*^9, 3.902180100481604*^9, 
   3.9021807272388487`*^9, 3.902181049891679*^9, 3.9022604728809233`*^9, 
   3.902262429997281*^9, 3.902263038372563*^9, 3.902263172904975*^9, 
   3.902334463555373*^9, 3.902337857812003*^9, 3.902350671321174*^9, 
   3.902603670318901*^9, 3.90275380545466*^9, 3.907094324545835*^9, 
   3.907095536152232*^9, 3.907858805648889*^9, 3.919011110286397*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"78a3ba33-764c-4c6e-8bca-a430066d2ec1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Head", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.902077448251637*^9, 3.902077448254312*^9}},
 CellLabel->"In[90]:=",ExpressionUUID->"72d50225-26f5-4f90-9f1b-0643de57397a"],

Cell[BoxData["List"], "Output",
 CellChangeTimes->{3.902077449108787*^9, 3.902080935403637*^9, 
  3.90209579350077*^9, 3.902177365160577*^9, 3.902177437562776*^9, 
  3.9021789197406187`*^9, 3.902179673795766*^9, 3.902179832762038*^9, 
  3.902180100488633*^9, 3.902180727245521*^9, 3.902181049898583*^9, 
  3.902260472900003*^9, 3.902262430004785*^9, 3.902263038378705*^9, 
  3.902263172912126*^9, 3.902334463582645*^9, 3.902337857820133*^9, 
  3.902350671326947*^9, 3.902603681844556*^9, 3.902753805461719*^9, 
  3.90709432697628*^9, 3.90709553615895*^9, 3.9078588056539993`*^9, 
  3.919011110292267*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"a6d782be-4e90-4dfe-afe0-a3563d11521f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["2.2.4 Nested Lists", "Subsection",
 CellChangeTimes->{{3.902603695185714*^9, 
  3.9026037097168837`*^9}},ExpressionUUID->"1217b48c-4ce0-4f7c-a4b1-\
5339069b9ecc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\"\<This\>\"", ",", "\"\<is\>\"", ",", "\"\<A\>\""}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\"\<Nested\>\"", ",", "\"\<List\>\"", ",", "\"\<.\>\""}], 
    "}"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.902078260759013*^9, 3.902078260762999*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"a725f9f9-c7c0-46bd-894f-becc7aea1e78"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"This\"\>", ",", "\<\"is\"\>", ",", "\<\"A\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Nested\"\>", ",", "\<\"List\"\>", ",", "\<\".\"\>"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.902078261668831*^9, 3.902080935486974*^9, 
  3.902095793529374*^9, 3.902177365164428*^9, 3.902177437596086*^9, 
  3.9021789197640653`*^9, 3.9021796738195333`*^9, 3.902179832790473*^9, 
  3.90218010051246*^9, 3.902180727251951*^9, 3.902181049925819*^9, 
  3.902260472905446*^9, 3.902262430029525*^9, 3.902263038400962*^9, 
  3.902263172938471*^9, 3.9023344635884542`*^9, 3.902337857839456*^9, 
  3.902350671345355*^9, 3.9026037179225817`*^9, 3.902753805483613*^9, 
  3.907094481737121*^9, 3.9070955361821213`*^9, 3.907858805712175*^9, 
  3.919011110309251*^9},
 CellLabel->"Out[91]=",ExpressionUUID->"603a0dc0-f01d-4ee1-88fd-36fef5c0f1ce"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Prime", "[", "i", "]"}], "+", 
    RowBox[{"Prime", "[", "j", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"j", ",", "2", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.902079052008699*^9, 3.9020790520118847`*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"078f81b8-093a-432c-a506-b768289e6f2a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"5", ",", "7", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "8", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "10", ",", "12"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.902079055287568*^9, 3.9020809354931083`*^9, 
  3.9020957935373983`*^9, 3.9021773651841497`*^9, 3.9021774376044073`*^9, 
  3.902178919771276*^9, 3.902179673826959*^9, 3.902179832800741*^9, 
  3.902180100519586*^9, 3.902180727277202*^9, 3.902181049933552*^9, 
  3.902260472925611*^9, 3.902262430054971*^9, 3.9022630384090137`*^9, 
  3.9022631729461403`*^9, 3.902334463612734*^9, 3.9023378578447733`*^9, 
  3.902350671364102*^9, 3.90260372427708*^9, 3.902753805503646*^9, 
  3.9070944833702917`*^9, 3.9070955362060432`*^9, 3.907858805717918*^9, 
  3.919011110329273*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"757f97dc-1d4b-4c17-85ba-b5b9c93ddb44"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NestL", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Prime", "[", "i", "]"}], "+", 
      RowBox[{"RandomReal", "[", "j", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Length", "[", "NestL", "]"}]}], "Input",
 CellChangeTimes->{{3.902080906507952*^9, 3.902080918053228*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"206bf0d9-f5a7-4a9d-80e6-26142143d975"],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{
  3.902080935516887*^9, 3.902095793571021*^9, 3.902177365188871*^9, 
   3.902177437635283*^9, 3.902178919797196*^9, 3.902179673851102*^9, 
   3.902179832825145*^9, 3.902180100548015*^9, 3.902180727283739*^9, 
   3.90218104996106*^9, 3.902260472930791*^9, 3.902262430062526*^9, 
   3.90226303843159*^9, 3.90226317297288*^9, 3.902334463618453*^9, 
   3.902337857866222*^9, 3.902350671370452*^9, {3.902603738230103*^9, 
   3.902603757109921*^9}, 3.902753805594556*^9, 3.907094484753528*^9, 
   3.907095536212832*^9, 3.907858805731113*^9, 3.919011110335453*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"8c3c08cc-842d-46bc-8b79-69a230f16919"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "NestL", "]"}]], "Input",
 CellChangeTimes->{{3.902080989647235*^9, 3.9020809896503077`*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"8619d4dd-e073-4ecb-a646-e54b49c7367c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{3.9020809903892937`*^9, 3.902095793579672*^9, 
  3.902177365207165*^9, 3.902177437642562*^9, 3.902178919802677*^9, 
  3.902179673857622*^9, 3.902179832832381*^9, 3.902180100575626*^9, 
  3.902180727307397*^9, 3.902181049968524*^9, 3.902260472949568*^9, 
  3.902262430086338*^9, 3.902263038440589*^9, 3.902263172979299*^9, 
  3.90233446362331*^9, 3.902337857871319*^9, 3.902350671385959*^9, 
  3.902603765526869*^9, 3.902753805604786*^9, 3.907094487015847*^9, 
  3.907095536219137*^9, 3.907858805737936*^9, 3.9190111103511677`*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"8473daff-5592-4d21-aef3-c1b88b35c666"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ArrayDepth", "[", "NestL", "]"}]], "Input",
 CellChangeTimes->{{3.902081081070309*^9, 3.90208108932647*^9}},
 CellLabel->"In[96]:=",ExpressionUUID->"4035f2c2-ed47-4fe8-8d59-b8f169b88c82"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.902081090274723*^9, 3.902095793609283*^9, 
  3.902177365211844*^9, 3.902177437649886*^9, 3.9021789198270187`*^9, 
  3.902179673881336*^9, 3.902179832855751*^9, 3.902180100581908*^9, 
  3.902180727313711*^9, 3.902181049998715*^9, 3.902260472954772*^9, 
  3.902262430093205*^9, 3.902263038464768*^9, 3.902263173003675*^9, 
  3.902334463635812*^9, 3.902337857890504*^9, 3.902350671391673*^9, 
  3.9026037806786833`*^9, 3.902753805628996*^9, 3.907094488626224*^9, 
  3.907095536242872*^9, 3.907858805751111*^9, 3.919011110356792*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"de02060a-86bd-4a06-a09f-d75f3b7bc610"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["2.2.5 Vector", "Subsection",
 CellChangeTimes->{{3.902603802422056*^9, 
  3.902603820154084*^9}},ExpressionUUID->"a5c03ec7-b3f4-4909-8b47-\
a4fa0bc352fb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"V", "=", 
  RowBox[{"{", 
   RowBox[{"6", ",", "3", ",", "2"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.902093420862564*^9, 3.90209342086551*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"c956f51d-01bb-40fb-a57f-28d21df66086"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6", ",", "3", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.9020934214550543`*^9, 3.902095793617415*^9, 
  3.902177365215763*^9, 3.902177437680016*^9, 3.902178919832919*^9, 
  3.902179673887903*^9, 3.9021798328618193`*^9, 3.902180100608436*^9, 
  3.9021807273373337`*^9, 3.902181050005945*^9, 3.9022604729744377`*^9, 
  3.902262430118354*^9, 3.902263038473071*^9, 3.9022631730111084`*^9, 
  3.902334463657029*^9, 3.902337857895668*^9, 3.9023506713962507`*^9, 
  3.9026038242471867`*^9, 3.902604085037768*^9, 3.902753805640826*^9, 
  3.9027560240967503`*^9, 3.907094522981709*^9, 3.907095536272238*^9, 
  3.907858805755718*^9, 3.919011110374866*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"77836db0-7040-44f2-96f3-6ed4c87fc909"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "V", "]"}]], "Input",
 CellChangeTimes->{{3.90209347200343*^9, 3.902093472006507*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"7239d6c9-537a-4590-bf82-1e9be9ac4c75"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"6"},
      {"3"},
      {"2"}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.902093472556898*^9, 3.902095793646698*^9, 
  3.902177365223749*^9, 3.902177437687768*^9, 3.902178919838089*^9, 
  3.902179673894149*^9, 3.902179832888088*^9, 3.902180100615922*^9, 
  3.902180727343898*^9, 3.902181050033043*^9, 3.9022604729801073`*^9, 
  3.9022624301257467`*^9, 3.9022630384971933`*^9, 3.902263173035117*^9, 
  3.90233446366435*^9, 3.902337857917069*^9, 3.902350671414335*^9, 
  3.902603832493221*^9, 3.902753805661962*^9, 3.9027560296175823`*^9, 
  3.907094524370709*^9, 3.907095536279731*^9, 3.9078588057730203`*^9, 
  3.91901111038227*^9},
 CellLabel->
  "Out[98]//MatrixForm=",ExpressionUUID->"fec071af-1ebc-46e8-8f64-\
d08456f9c8fb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"VectorQ", "[", "V", "]"}]], "Input",
 CellChangeTimes->{{3.9020935631608553`*^9, 3.9020935631642*^9}},
 CellLabel->"In[99]:=",ExpressionUUID->"b54f3093-243b-4c83-9a3b-901eaf4ece9b"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.902093563583271*^9, 3.902095793654498*^9, 
  3.902177365241115*^9, 3.9021774377185993`*^9, 3.9021789198430853`*^9, 
  3.902179673900312*^9, 3.902179832895162*^9, 3.9021801006426487`*^9, 
  3.9021807273499207`*^9, 3.902181050041073*^9, 3.902260473002596*^9, 
  3.90226243015268*^9, 3.902263038506172*^9, 3.902263173041692*^9, 
  3.902334463685364*^9, 3.902337857922282*^9, 3.902350671419594*^9, 
  3.902603837078444*^9, 3.902753805671876*^9, 3.902756055336769*^9, 
  3.907094526176491*^9, 3.907095536305833*^9, 3.907858805777384*^9, 
  3.919011110399736*^9},
 CellLabel->"Out[99]=",ExpressionUUID->"7a34f9ad-5dd0-409c-a367-8a528dff2e73"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"TensorRank", "[", "V", "]"}], ",", 
   RowBox[{"ArrayDepth", "[", "V", "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.902093614654629*^9, 3.902093614660637*^9}},
 CellLabel->
  "In[100]:=",ExpressionUUID->"de6a8b3d-6009-4ca8-905b-583b0b54fe5d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.902093615638824*^9, 3.90209579368399*^9, 
  3.902177365250647*^9, 3.902177437734611*^9, 3.902178919863533*^9, 
  3.902179673924253*^9, 3.902179832921351*^9, 3.9021801006742983`*^9, 
  3.902180727374922*^9, 3.902181050069314*^9, 3.902260473023183*^9, 
  3.9022624301665373`*^9, 3.902263038530286*^9, 3.902263173070047*^9, 
  3.902334463711483*^9, 3.902337857941789*^9, 3.902350671435336*^9, 
  3.902603848327664*^9, 3.90275380569291*^9, 3.902756057291912*^9, 
  3.90709452962954*^9, 3.907095536321406*^9, 3.907858805791147*^9, 
  3.919011110424801*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"1b136d82-7dba-4d8b-971e-50c87b464db3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Addition: \>\"", "<>", 
   RowBox[{"ToString", "[", 
    RowBox[{"V", "+", "V"}], "]"}]}], "]"}], "\n", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Subtraction: \>\"", "<>", 
   RowBox[{"ToString", "[", 
    RowBox[{"V", "-", "V"}], "]"}]}], "]"}], "\n", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Scalar product: \>\"", "<>", 
   RowBox[{"ToString", "[", 
    RowBox[{"2", "*", "V"}], "]"}]}], "]"}], "\n", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Cross product: \>\"", "<>", 
   RowBox[{"ToString", "[", 
    RowBox[{"Cross", "[", 
     RowBox[{"V", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "3", ",", "2"}], "}"}]}], "]"}], "]"}]}], 
  "]"}], "\n", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Norm: \>\"", "<>", 
   RowBox[{"ToString", "[", 
    RowBox[{"Norm", "[", "V", "]"}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.902093708800499*^9, 3.902093708803368*^9}, 
   3.919011496132906*^9},ExpressionUUID->"704b9444-4a24-4aa5-a463-\
a54ca9222f49"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Addition: {12, 6, 4}\"\>"], "Print",
 CellChangeTimes->{3.9020937112087517`*^9, 3.902095793693773*^9, 
  3.9021773652690487`*^9, 3.902177437768417*^9, 3.9021789198703327`*^9, 
  3.902179674019638*^9, 3.902179832930044*^9, 3.902180100683207*^9, 
  3.902180727383808*^9, 3.902181050101087*^9, 3.902260473043137*^9, 
  3.902262430191697*^9, 3.902263038540224*^9, 3.902263173078898*^9, 
  3.902334463716846*^9, 3.902337857947698*^9, 3.902350671442036*^9, 
  3.90260386635151*^9, 3.9027538057034388`*^9, 3.9027560586832447`*^9, 
  3.907094531520166*^9, 3.90709553640933*^9, 3.9078588057967987`*^9, 
  3.919011110433226*^9},
 CellLabel->
  "During evaluation of \
In[101]:=",ExpressionUUID->"b53e00b8-db3f-4cc5-8fec-3fea0a7df02a"],

Cell[BoxData["\<\"Substraction: {0, 0, 0}\"\>"], "Print",
 CellChangeTimes->{3.9020937112087517`*^9, 3.902095793693773*^9, 
  3.9021773652690487`*^9, 3.902177437768417*^9, 3.9021789198703327`*^9, 
  3.902179674019638*^9, 3.902179832930044*^9, 3.902180100683207*^9, 
  3.902180727383808*^9, 3.902181050101087*^9, 3.902260473043137*^9, 
  3.902262430191697*^9, 3.902263038540224*^9, 3.902263173078898*^9, 
  3.902334463716846*^9, 3.902337857947698*^9, 3.902350671442036*^9, 
  3.90260386635151*^9, 3.9027538057034388`*^9, 3.9027560586832447`*^9, 
  3.907094531520166*^9, 3.90709553640933*^9, 3.9078588057967987`*^9, 
  3.919011110434498*^9},
 CellLabel->
  "During evaluation of \
In[101]:=",ExpressionUUID->"8c7d4e69-cb78-44db-927d-251747a3fda9"],

Cell[BoxData["\<\"Scalar product: {12, 6, 4}\"\>"], "Print",
 CellChangeTimes->{3.9020937112087517`*^9, 3.902095793693773*^9, 
  3.9021773652690487`*^9, 3.902177437768417*^9, 3.9021789198703327`*^9, 
  3.902179674019638*^9, 3.902179832930044*^9, 3.902180100683207*^9, 
  3.902180727383808*^9, 3.902181050101087*^9, 3.902260473043137*^9, 
  3.902262430191697*^9, 3.902263038540224*^9, 3.902263173078898*^9, 
  3.902334463716846*^9, 3.902337857947698*^9, 3.902350671442036*^9, 
  3.90260386635151*^9, 3.9027538057034388`*^9, 3.9027560586832447`*^9, 
  3.907094531520166*^9, 3.90709553640933*^9, 3.9078588057967987`*^9, 
  3.9190111104359713`*^9},
 CellLabel->
  "During evaluation of \
In[101]:=",ExpressionUUID->"ab115bab-c832-4770-ac98-2c2a96aa9511"],

Cell[BoxData["\<\"Cross product: {0, -10, 15}\"\>"], "Print",
 CellChangeTimes->{3.9020937112087517`*^9, 3.902095793693773*^9, 
  3.9021773652690487`*^9, 3.902177437768417*^9, 3.9021789198703327`*^9, 
  3.902179674019638*^9, 3.902179832930044*^9, 3.902180100683207*^9, 
  3.902180727383808*^9, 3.902181050101087*^9, 3.902260473043137*^9, 
  3.902262430191697*^9, 3.902263038540224*^9, 3.902263173078898*^9, 
  3.902334463716846*^9, 3.902337857947698*^9, 3.902350671442036*^9, 
  3.90260386635151*^9, 3.9027538057034388`*^9, 3.9027560586832447`*^9, 
  3.907094531520166*^9, 3.90709553640933*^9, 3.9078588057967987`*^9, 
  3.919011110436852*^9},
 CellLabel->
  "During evaluation of \
In[101]:=",ExpressionUUID->"f7844a95-14de-4379-aa75-4de48ef110fd"],

Cell[BoxData["\<\"Norm: 7\"\>"], "Print",
 CellChangeTimes->{3.9020937112087517`*^9, 3.902095793693773*^9, 
  3.9021773652690487`*^9, 3.902177437768417*^9, 3.9021789198703327`*^9, 
  3.902179674019638*^9, 3.902179832930044*^9, 3.902180100683207*^9, 
  3.902180727383808*^9, 3.902181050101087*^9, 3.902260473043137*^9, 
  3.902262430191697*^9, 3.902263038540224*^9, 3.902263173078898*^9, 
  3.902334463716846*^9, 3.902337857947698*^9, 3.902350671442036*^9, 
  3.90260386635151*^9, 3.9027538057034388`*^9, 3.9027560586832447`*^9, 
  3.907094531520166*^9, 3.90709553640933*^9, 3.9078588057967987`*^9, 
  3.919011110437728*^9},
 CellLabel->
  "During evaluation of \
In[101]:=",ExpressionUUID->"3d4c38a6-4010-44ec-89e4-edbe410c18cb"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["2.2.6 Matrices", "Subsection",
 CellChangeTimes->{{3.902603876615773*^9, 
  3.902603892720842*^9}},ExpressionUUID->"c39cc1c9-bbe9-420a-ae52-\
e3d9a49e6181"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"3", ",", "3", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"7", ",", "8", ",", "7"}], "}"}]}], "}"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.902093987483116*^9, 3.902094148149019*^9}, {
  3.902094274665175*^9, 3.902094276684638*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"31e4e0c9-0259-45eb-981d-6e98b23b96f4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"3", "3", "1"},
     {"7", "8", "7"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.902094283808741*^9, 3.902095793732387*^9, 
  3.902177365276234*^9, 3.902177437779237*^9, 3.902178919893435*^9, 
  3.9021796740291567`*^9, 3.902179832960634*^9, 3.902180100711323*^9, 
  3.902180727414606*^9, 3.902181050112799*^9, 3.902260473052639*^9, 
  3.902262430282984*^9, 3.902263038569731*^9, 3.902263173109248*^9, 
  3.902334463741148*^9, 3.902337857971582*^9, 3.9023506714730873`*^9, 
  3.902603899161663*^9, 3.902753805740074*^9, 3.902756061163831*^9, 
  3.907094581971787*^9, 3.907095536419506*^9, 3.907858805804285*^9, 
  3.919011110472232*^9},
 CellLabel->
  "Out[106]//MatrixForm=",ExpressionUUID->"67eb2082-ef57-415f-a5c8-\
2d10b8db30bf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "=", 
  RowBox[{"(", GridBox[{
     {"1", "0", "0"},
     {"0", "1", "0"},
     {"0", "0", "1"}
    },
    GridBoxDividers->{
     "Columns" -> {False, {True}, False}, "Rows" -> {{False}}}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.902094451220044*^9, 3.902094465800934*^9}},
 CellLabel->
  "In[107]:=",ExpressionUUID->"e1384a7d-ee77-4dc8-af96-c62ca78f6fed"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.90209446708858*^9, 3.90209579374194*^9, 
  3.9021773652939262`*^9, 3.902177437811378*^9, 3.90217891989876*^9, 
  3.902179674055075*^9, 3.902179832968094*^9, 3.902180100718618*^9, 
  3.902180727422173*^9, 3.902181050142041*^9, 3.902260473077034*^9, 
  3.902262430290142*^9, 3.902263038576879*^9, 3.9022631731170683`*^9, 
  3.902334463748205*^9, 3.9023378579766407`*^9, 3.902350671478669*^9, 
  3.9026039186285543`*^9, 3.902604056546091*^9, 3.90275380574727*^9, 
  3.902756062886481*^9, 3.907094583711728*^9, 3.90709553645161*^9, 
  3.9078588058083487`*^9, 3.919011110480583*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"cac4ab86-fff8-4012-9391-86177cf08d88"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixQ", "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.902094905816258*^9, 3.902094905819809*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"471490ce-6b79-42c2-b6ea-7f20db6691d3"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.902094906552381*^9, 3.902095793775079*^9, 
  3.9021773652986097`*^9, 3.902177437818613*^9, 3.902178919903118*^9, 
  3.902179674060748*^9, 3.9021798329945793`*^9, 3.902180100742776*^9, 
  3.902180727447047*^9, 3.902181050150098*^9, 3.902260473082262*^9, 
  3.902262430313971*^9, 3.902263038602045*^9, 3.9022631731429234`*^9, 
  3.902334463768092*^9, 3.902337857980763*^9, 3.902350671496527*^9, 
  3.902603984077248*^9, 3.902753805769639*^9, 3.90275606425964*^9, 
  3.90709458515722*^9, 3.907095536458335*^9, 3.9078588058301477`*^9, 
  3.919011110500626*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"069fe37f-5401-4268-a232-a8844e88374b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.902095004186557*^9, 3.902095004189608*^9}},
 CellLabel->
  "In[109]:=",ExpressionUUID->"4f119e81-0620-4c98-b3b1-170be0b7f9e3"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0"},
     {"1", "1", "1"},
     {"0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.9020950049666*^9, 3.902095793783552*^9, 
  3.902177365318376*^9, 3.902177437848799*^9, 3.902178919907483*^9, 
  3.902179674084144*^9, 3.90217983300174*^9, 3.902180100749988*^9, 
  3.902180727454004*^9, 3.902181050176355*^9, 3.90226047308733*^9, 
  3.902262430321183*^9, 3.90226303860946*^9, 3.902263173150567*^9, 
  3.902334463773683*^9, 3.902337858001826*^9, 3.902350671503208*^9, 
  3.902603991217598*^9, 3.902753805776751*^9, 3.9027560661466618`*^9, 
  3.907094586783983*^9, 3.9070955364834013`*^9, 3.907858805834692*^9, 
  3.919011110508061*^9},
 CellLabel->
  "Out[109]//MatrixForm=",ExpressionUUID->"18f606c0-d4e5-4931-84df-\
a6e1d3d62601"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["2.2.7 Matrix Operations", "Subsection",
 CellChangeTimes->{{3.902604013622591*^9, 
  3.9026040283047733`*^9}},ExpressionUUID->"f50ea05c-1f4f-47ce-8afd-\
6f8d55f3df69"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"B", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Addition: \>\"", "<>", 
   RowBox[{"ToString", "[", 
    RowBox[{"A", "+", "B"}], "]"}]}], "]"}], "\n", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Subtraction: \>\"", "<>", 
   RowBox[{"ToString", "[", 
    RowBox[{"A", "-", "B"}], "]"}]}], "]"}], "\n", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Product: \>\"", "<>", 
   RowBox[{"ToString", "[", 
    RowBox[{"Dot", "[", 
     RowBox[{"B", ",", "V"}], "]"}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.902095359238886*^9, 3.902095359242066*^9}, 
   3.91901156040107*^9},ExpressionUUID->"0eadd9f6-d5a4-4f4f-8b9d-\
d7b31214405c"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Addition: {{1, 1, 0}, {0, 2, 0}, {0, 1, 1}}\"\>"], "Print",
 CellChangeTimes->{
  3.90209536046686*^9, 3.902095793821154*^9, 3.9021773653234386`*^9, 
   3.902177437856577*^9, 3.902178919926182*^9, 3.902179674090411*^9, 
   3.902179833029082*^9, 3.902180100775427*^9, 3.902180727480682*^9, 
   3.9021810501838703`*^9, 3.902260473094666*^9, 3.902262430344966*^9, 
   3.902263038635408*^9, 3.9022631731759*^9, 3.9023344637814918`*^9, 
   3.90233785800698*^9, 3.9023506715196133`*^9, {3.902604042916045*^9, 
   3.902604060350646*^9}, 3.9026040949240303`*^9, 3.902753805800999*^9, 
   3.902756068679047*^9, 3.907094649446844*^9, 3.907095536492097*^9, 
   3.907858805851815*^9, 3.919011110530437*^9},
 CellLabel->
  "During evaluation of \
In[110]:=",ExpressionUUID->"8a711b4b-3d51-4151-85be-1c9c573ea29b"],

Cell[BoxData["\<\"Substraction: {{1, -1, 0}, {0, 0, 0}, {0, -1, 1}}\"\>"], \
"Print",
 CellChangeTimes->{
  3.90209536046686*^9, 3.902095793821154*^9, 3.9021773653234386`*^9, 
   3.902177437856577*^9, 3.902178919926182*^9, 3.902179674090411*^9, 
   3.902179833029082*^9, 3.902180100775427*^9, 3.902180727480682*^9, 
   3.9021810501838703`*^9, 3.902260473094666*^9, 3.902262430344966*^9, 
   3.902263038635408*^9, 3.9022631731759*^9, 3.9023344637814918`*^9, 
   3.90233785800698*^9, 3.9023506715196133`*^9, {3.902604042916045*^9, 
   3.902604060350646*^9}, 3.9026040949240303`*^9, 3.902753805800999*^9, 
   3.902756068679047*^9, 3.907094649446844*^9, 3.907095536492097*^9, 
   3.907858805851815*^9, 3.919011110531221*^9},
 CellLabel->
  "During evaluation of \
In[110]:=",ExpressionUUID->"8c144abe-4cb0-4c01-8fe0-2d5b9db82bd5"],

Cell[BoxData["\<\"Product: {3, 3, 3}\"\>"], "Print",
 CellChangeTimes->{
  3.90209536046686*^9, 3.902095793821154*^9, 3.9021773653234386`*^9, 
   3.902177437856577*^9, 3.902178919926182*^9, 3.902179674090411*^9, 
   3.902179833029082*^9, 3.902180100775427*^9, 3.902180727480682*^9, 
   3.9021810501838703`*^9, 3.902260473094666*^9, 3.902262430344966*^9, 
   3.902263038635408*^9, 3.9022631731759*^9, 3.9023344637814918`*^9, 
   3.90233785800698*^9, 3.9023506715196133`*^9, {3.902604042916045*^9, 
   3.902604060350646*^9}, 3.9026040949240303`*^9, 3.902753805800999*^9, 
   3.902756068679047*^9, 3.907094649446844*^9, 3.907095536492097*^9, 
   3.907858805851815*^9, 3.919011110533628*^9},
 CellLabel->
  "During evaluation of \
In[110]:=",ExpressionUUID->"86c62792-d2aa-45f8-8b63-3a415d68ea5a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Det", "[", "A", "]"}], ",", 
   RowBox[{"Det", "[", "B", "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.902095421748317*^9, 3.902095421751504*^9}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"9040a7b9-1f4d-478d-9568-b328cc98eadd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.9020954221089373`*^9, 3.902095793831918*^9, 
  3.902177365342729*^9, 3.9021774378860064`*^9, 3.9021789199326477`*^9, 
  3.902179674114151*^9, 3.902179833038465*^9, 3.902180100783901*^9, 
  3.902180727488432*^9, 3.902181050209592*^9, 3.902260473122081*^9, 
  3.902262430353751*^9, 3.902263038644328*^9, 3.902263173184874*^9, 
  3.902334463803899*^9, 3.902337858013051*^9, 3.9023506715268707`*^9, 
  3.902604106149897*^9, 3.902753805811564*^9, 3.902756070597817*^9, 
  3.907094650819654*^9, 3.9070955365268717`*^9, 3.9078588058571987`*^9, 
  3.919011110674919*^9},
 CellLabel->
  "Out[114]=",ExpressionUUID->"c51d2732-00f9-420a-8c06-dd50eee1102a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"DiagonalMatrix", "[", 
   RowBox[{"{", 
    RowBox[{"X", ",", "Y", ",", "Z"}], "}"}], "]"}], "//", 
  "MatrixForm"}], "\n", 
 RowBox[{
  RowBox[{"IdentityMatrix", "[", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2"}], "}"}], "]"}], "//", "MatrixForm", 
  RowBox[{"(*", 
   RowBox[{
   "Identity", " ", "matrix", " ", "of", " ", "2", " ", "by", " ", "2"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.902095548509903*^9, 3.902095548514041*^9}, {
  3.902095677261057*^9, 3.902095678179274*^9}, {3.902177378566308*^9, 
  3.902177391337893*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"61821bbd-2696-4c8a-8851-0a3064ad4e19"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"X", "0", "0"},
     {"0", "Y", "0"},
     {"0", "0", "Z"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.902095549503574*^9, 3.902095793868445*^9, 
  3.902177365347517*^9, 3.902177437892321*^9, 3.902178919938003*^9, 
  3.90217967412127*^9, 3.902179833070281*^9, 3.902180100812253*^9, 
  3.9021807275151443`*^9, 3.9021810502169046`*^9, 3.902260473130395*^9, 
  3.902262430378521*^9, 3.9022630386704397`*^9, 3.902263173211584*^9, 
  3.902334463808923*^9, 3.9023378580210752`*^9, 3.902350671551455*^9, 
  3.9026041186535387`*^9, 3.90275380584329*^9, 3.9027560720806017`*^9, 
  3.907094651439712*^9, 3.9070955365352583`*^9, 3.9078588058800087`*^9, 
  3.919011110696864*^9},
 CellLabel->
  "Out[115]//MatrixForm=",ExpressionUUID->"5bde6198-9b33-4f79-9468-\
287b31a24693"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0"},
     {"0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.902095549503574*^9, 3.902095793868445*^9, 
  3.902177365347517*^9, 3.902177437892321*^9, 3.902178919938003*^9, 
  3.90217967412127*^9, 3.902179833070281*^9, 3.902180100812253*^9, 
  3.9021807275151443`*^9, 3.9021810502169046`*^9, 3.902260473130395*^9, 
  3.902262430378521*^9, 3.9022630386704397`*^9, 3.902263173211584*^9, 
  3.902334463808923*^9, 3.9023378580210752`*^9, 3.902350671551455*^9, 
  3.9026041186535387`*^9, 3.90275380584329*^9, 3.9027560720806017`*^9, 
  3.907094651439712*^9, 3.9070955365352583`*^9, 3.9078588058800087`*^9, 
  3.919011110698524*^9},
 CellLabel->
  "Out[116]//MatrixForm=",ExpressionUUID->"935530d9-b17a-44b0-aefd-\
dd70d2494c78"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["2.2.8 Restructuring a Matrix", "Subsection",
 CellChangeTimes->{{3.902604137588164*^9, 
  3.902604160110447*^9}},ExpressionUUID->"091c67c4-074c-42d5-b63e-\
e033f34b8604"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplacePart", "[", 
   RowBox[{"A", ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "->", "3"}]}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.902095760421659*^9, 3.902095760424949*^9}},
 CellLabel->
  "In[117]:=",ExpressionUUID->"e901ef8b-55dd-404a-b181-3eb295258121"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"3", "0", "0"},
     {"0", "3", "0"},
     {"0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.902095760767755*^9, 3.902095793897129*^9, 
  3.9021773653720717`*^9, 3.902177437899789*^9, 3.90217891996136*^9, 
  3.902179674149118*^9, 3.902179833082765*^9, 3.902180100824155*^9, 
  3.902180727525344*^9, 3.90218105024703*^9, 3.9022604731500173`*^9, 
  3.902262430387583*^9, 3.902263038679082*^9, 3.9022631732202873`*^9, 
  3.902334463829632*^9, 3.902337858041861*^9, 3.902350671558281*^9, 
  3.902604199394563*^9, 3.902753805854648*^9, 3.902756102886024*^9, 
  3.907094687755137*^9, 3.907095536561953*^9, 3.907858805888979*^9, 
  3.919011110704404*^9},
 CellLabel->
  "Out[117]//MatrixForm=",ExpressionUUID->"b3267bd2-e6ac-4a02-837e-\
88bbd951de9c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", "=", " ", "2"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "A", "]"}]}], "Input",
 CellChangeTimes->{{3.902177463525813*^9, 3.902177488747813*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"ef736437-916f-4abd-a960-d6206168f553"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2", "0", "0"},
     {"0", "1", "0"},
     {"0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.902177492188367*^9, 3.902178919966118*^9, 
  3.902179674155275*^9, 3.902179833113593*^9, 3.902180100850573*^9, 
  3.902180727550768*^9, 3.902181050254218*^9, 3.902260473155665*^9, 
  3.9022624304110613`*^9, 3.902263038703284*^9, 3.902263173246186*^9, 
  3.9023344638345757`*^9, 3.902337858046893*^9, 3.902350671563498*^9, 
  3.9026042118801517`*^9, 3.902753805876409*^9, 3.902756104097843*^9, 
  3.907094688268348*^9, 3.90709553656903*^9, 3.907858805903758*^9, 
  3.919011110722742*^9},
 CellLabel->
  "Out[119]//MatrixForm=",ExpressionUUID->"56b278f2-c8dc-4477-b509-\
06bbed009879"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Inverse", "[", "A", "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.902177580433554*^9, 3.9021775891406517`*^9}},
 CellLabel->
  "In[120]:=",ExpressionUUID->"03a7e866-0329-470b-9297-fba616b32783"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox["1", "2"], "0", "0"},
     {"0", "1", "0"},
     {"0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.902177590286589*^9, 3.902178919970477*^9, 
  3.902179674161351*^9, 3.902179833121932*^9, 3.902180100858192*^9, 
  3.902180727558473*^9, 3.902181050281983*^9, 3.902260473175524*^9, 
  3.902262430419615*^9, 3.902263038710964*^9, 3.90226317325369*^9, 
  3.90233446383878*^9, 3.902337858069006*^9, 3.902350671570236*^9, 
  3.902604223670334*^9, 3.902753805887323*^9, 3.902756105997769*^9, 
  3.907094689236214*^9, 3.907095536595109*^9, 3.907858805908296*^9, 
  3.919011110731138*^9},
 CellLabel->
  "Out[120]//MatrixForm=",ExpressionUUID->"a57aeade-786b-4a07-bc5b-\
3e8c8419bce7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.902177680964045*^9, 3.902177682916471*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"49760e19-f835-4b22-96a3-ab9bd8124f41"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{3.902177683888545*^9, 3.9021789199883537`*^9, 
  3.9021796741670322`*^9, 3.902179833152562*^9, 3.902180100884327*^9, 
  3.902180727585978*^9, 3.902181050288817*^9, 3.902260473181401*^9, 
  3.9022624304423*^9, 3.902263038732112*^9, 3.902263173279716*^9, 
  3.9023344638427057`*^9, 3.902337858073937*^9, 3.902350671586176*^9, 
  3.902604233048475*^9, 3.9027538059090757`*^9, 3.902756132468649*^9, 
  3.907094689967882*^9, 3.907095536602269*^9, 3.9078588059266663`*^9, 
  3.919011110750166*^9},
 CellLabel->
  "Out[121]=",ExpressionUUID->"9a14f6be-2ed8-407d-b998-2d8ad99351e9"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["2.3 Manipulating Lists ", "Section",
 CellChangeTimes->{{3.902604245670232*^9, 3.902604260848265*^9}, {
   3.9026043009828863`*^9, 3.902604317268413*^9}, 
   3.908905147040919*^9},ExpressionUUID->"ebdd66e8-c7ec-4d79-b8cd-\
6f2eab39cbc8"],

Cell[CellGroupData[{

Cell["2.3.1Retrieving Data", "Subsection",
 CellChangeTimes->{{3.902604322726705*^9, 
  3.902604343568399*^9}},ExpressionUUID->"61f51402-4f2e-462f-89b8-\
d0a4f44a148e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"list1", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}]}], ";"}], "\n", 
 RowBox[{"Part", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", "1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.902178413406549*^9, 3.9021784134095707`*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"9012cdf5-fa51-483f-8ab2-666c2e527742"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.902178414161148*^9, 3.902178919993295*^9, 
  3.90217967419186*^9, 3.902179833160608*^9, 3.9021801008916273`*^9, 
  3.902180727593409*^9, 3.902181050315256*^9, 3.902260473198786*^9, 
  3.902262430450732*^9, 3.902263038740505*^9, 3.902263173286704*^9, 
  3.902334463862526*^9, 3.902337858078051*^9, 3.902350671591419*^9, 
  3.902604359591697*^9, 3.902753805916114*^9, 3.9070947737327156`*^9, 
  3.9070955366297483`*^9, 3.907858805932891*^9, 3.919011110755719*^9},
 CellLabel->
  "Out[123]=",ExpressionUUID->"0c205298-9922-4389-96fc-dfcdab4b5a72"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"1", ",", "2"}], "}"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.902178493476699*^9, 3.902178493480201*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"da1a1ac9-fc9b-4f00-b39f-e77740587afa"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.9021784940298142`*^9, 3.902178920012208*^9, 
  3.9021796741976233`*^9, 3.902179833190775*^9, 3.902180100916443*^9, 
  3.902180727619708*^9, 3.902181050321759*^9, 3.902260473204179*^9, 
  3.902262430473433*^9, 3.90226303876171*^9, 3.902263173311594*^9, 
  3.902334463867319*^9, 3.902337858082103*^9, 3.9023506715962677`*^9, 
  3.902604367631296*^9, 3.902753805938195*^9, 3.907094775676224*^9, 
  3.907095536636614*^9, 3.907858805949671*^9, 3.9190111107606688`*^9},
 CellLabel->
  "Out[124]=",ExpressionUUID->"33965075-5113-4e4e-985a-921582e369bc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"list1", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"[", 
     RowBox[{"[", "i", "]"}], "]"}], " ", "gives", " ", "you", " ", "access", 
    " ", "to", " ", "the", " ", "element", " ", "of", " ", "the", " ", "list",
     " ", "in", " ", "the", " ", "position", " ", 
    RowBox[{"i", "."}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.902178595413056*^9, 3.902178595420452*^9}, 
   3.9078621671016903`*^9},
 CellLabel->
  "In[125]:=",ExpressionUUID->"6d0e3013-053b-40b9-bae6-c5a6beb42e4f"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.902178596839755*^9, 3.902178920017522*^9, 
  3.902179674221916*^9, 3.902179833199745*^9, 3.902180100924055*^9, 
  3.902180727627499*^9, 3.90218105034636*^9, 3.902260473223007*^9, 
  3.9022624304801264`*^9, 3.902263038767778*^9, 3.902263173319031*^9, 
  3.902334463871334*^9, 3.902337858101626*^9, 3.902350671603211*^9, 
  3.902604389414013*^9, 3.9027538059457083`*^9, 3.90709477675802*^9, 
  3.907095536662255*^9, 3.907858805955945*^9, 3.919011110779155*^9},
 CellLabel->
  "Out[125]=",ExpressionUUID->"402e2998-5a68-455d-92fe-9af194f37f3a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"list2", "=", 
   RowBox[{"List", "[", 
    RowBox[{"34", ",", "6", ",", "77", ",", "4", ",", "5", ",", "6"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Part", "[", 
   RowBox[{"list2", ",", 
    RowBox[{"1", ";;", "4"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{"from", " ", "items", " ", "1", " ", "to", " ", "4"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.9021786800381527`*^9, 3.902178680041131*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"a428262a-2bfd-45df-a910-d843b27ec49e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"34", ",", "6", ",", "77", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{3.902178680904623*^9, 3.90217892002228*^9, 
  3.902179674228787*^9, 3.902179833227375*^9, 3.902180100946301*^9, 
  3.902180727635873*^9, 3.90218105035299*^9, 3.9022604732301474`*^9, 
  3.902262430502763*^9, 3.902263038790236*^9, 3.902263173345066*^9, 
  3.902334463875252*^9, 3.902337858106636*^9, 3.902350671618617*^9, 
  3.9026044014984007`*^9, 3.9027538059696074`*^9, 3.9070947782428107`*^9, 
  3.9070955366692038`*^9, 3.9078588059709253`*^9, 3.919011110784771*^9},
 CellLabel->
  "Out[127]=",ExpressionUUID->"9af27f7e-edfd-482d-89bf-8ba175c7aced"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"list2", "[", 
  RowBox[{"[", 
   RowBox[{
    RowBox[{"-", "6"}], ";;", 
    RowBox[{"-", "4"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.902178730854265*^9, 3.9021787308561573`*^9}},
 CellLabel->
  "In[128]:=",ExpressionUUID->"7779c098-0ef3-4c57-80f4-aec3d4fbfe95"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"34", ",", "6", ",", "77"}], "}"}]], "Output",
 CellChangeTimes->{3.90217884193292*^9, 3.902178920026374*^9, 
  3.9021796742523828`*^9, 3.90217983323486*^9, 3.902180100952526*^9, 
  3.902180727664105*^9, 3.902181050358012*^9, 3.902260473247673*^9, 
  3.902262430509496*^9, 3.90226303879627*^9, 3.902263173352291*^9, 
  3.902334463893784*^9, 3.902337858110731*^9, 3.902350671623998*^9, 
  3.902604409264494*^9, 3.902753805976999*^9, 3.907094780128927*^9, 
  3.907095536692931*^9, 3.907858805975515*^9, 3.919011110804738*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"58d04b66-c2a2-48a5-9cd8-4116e43bce75"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"list3", "=", 
   RowBox[{"List", "[", 
    RowBox[{
     RowBox[{"2", "^", "3"}], ",", "2.72", ",", 
     RowBox[{"{", 
      RowBox[{"\[Beta]", ",", "ex", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Total", "[", 
          RowBox[{"1", "+", "2"}], "]"}], ",", "\"\<Plane\>\""}], "}"}]}], 
      "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"list3", "[", 
  RowBox[{"[", 
   RowBox[{"3", ",", "3", ",", "2"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.902178882592482*^9, 3.9021788900683517`*^9}, {
  3.902179226463864*^9, 3.902179227595412*^9}, {3.902179366951579*^9, 
  3.902179370049068*^9}, {3.90217941887455*^9, 3.902179447445581*^9}, {
  3.90217968662868*^9, 3.902179686920856*^9}, {3.902180078645036*^9, 
  3.902180084901043*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"ab1aadac-9c9e-4993-b006-a350b9ff347d"],

Cell[BoxData["\<\"Plane\"\>"], "Output",
 CellChangeTimes->{{3.90217889189563*^9, 3.902178920045621*^9}, 
   3.902179228162485*^9, 3.902179370609783*^9, {3.9021794196569977`*^9, 
   3.902179448065889*^9}, 3.902179674258605*^9, 3.902179833253632*^9, 
   3.9021801009581823`*^9, 3.9021807276720877`*^9, 3.902181050363552*^9, 
   3.902260473253337*^9, 3.902262430534042*^9, 3.902263038801663*^9, 
   3.902263173375931*^9, 3.90233446389876*^9, 3.902337858114868*^9, 
   3.902350671629636*^9, 3.902604417187969*^9, 3.902753806000976*^9, 
   3.90709478239756*^9, 3.907095536700381*^9, 3.907858805991411*^9, 
   3.9190111108106613`*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"6556ebea-6a55-442d-87b9-038148935bf7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"list3", "[", 
  RowBox[{"[", 
   RowBox[{"3", ",", 
    RowBox[{"1", ";;", "2"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.902179657425264*^9, 3.902179657428457*^9}},
 CellLabel->
  "In[131]:=",ExpressionUUID->"83c94386-7d13-4c22-a93e-c36586add453"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\[Beta]", ",", "ex"}], "}"}]], "Output",
 CellChangeTimes->{3.902179674273687*^9, 3.902179833259504*^9, 
  3.902180100981183*^9, 3.902180727694833*^9, 3.90218105038537*^9, 
  3.902260473257989*^9, 3.9022624305408373`*^9, 3.902263038823946*^9, 
  3.902263173383706*^9, 3.902334463915821*^9, 3.902337858135205*^9, 
  3.902350671636121*^9, 3.9026044280791607`*^9, 3.902753806009256*^9, 
  3.907094786129592*^9, 3.907095536726921*^9, 3.9078588059959097`*^9, 
  3.919011110828891*^9},
 CellLabel->
  "Out[131]=",ExpressionUUID->"923b75dc-52f3-4cd4-b772-f4d6153758c0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"list3", "[", 
  RowBox[{"[", 
   RowBox[{"3", ",", 
    RowBox[{"3", ";;", "3"}], ",", "1"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.902179813272271*^9, 3.902179813275028*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"28ca2962-d50a-4203-82b8-1c2e76661983"],

Cell[BoxData[
 RowBox[{"{", "3", "}"}]], "Output",
 CellChangeTimes->{3.902179833278031*^9, 3.902180100988494*^9, 
  3.902180727702674*^9, 3.902181050394421*^9, 3.902260473262858*^9, 
  3.902262430547233*^9, 3.902263038829926*^9, 3.902263173406096*^9, 
  3.9023344639207277`*^9, 3.90233785814016*^9, 3.902350671651875*^9, 
  3.902604439630702*^9, 3.902753806037628*^9, 3.907094787745813*^9, 
  3.907095536733978*^9, 3.907858806000834*^9, 3.9190111108345757`*^9},
 CellLabel->
  "Out[132]=",ExpressionUUID->"8a15fa4d-1066-4d40-9158-55ac942ce94c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rest", "[", "list3", "]"}]], "Input",
 CellChangeTimes->{{3.902179976187969*^9, 3.9021799761911497`*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"ad81c9f7-e617-4619-9732-a210ef80a57c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.72`", ",", 
   RowBox[{"{", 
    RowBox[{"\[Beta]", ",", "ex", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "\<\"Plane\"\>"}], "}"}]}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.902179997861177*^9, 3.902180101004983*^9, 
  3.902180727725357*^9, 3.902181050415881*^9, 3.902260473279361*^9, 
  3.902262430570152*^9, 3.9022630388353*^9, 3.902263173412462*^9, 
  3.902334463924897*^9, 3.902337858144253*^9, 3.902350671657181*^9, 
  3.9026044492956343`*^9, 3.90275380604578*^9, 3.907094789580061*^9, 
  3.907095536761343*^9, 3.907858806005806*^9, 3.919011110854142*^9},
 CellLabel->
  "Out[133]=",ExpressionUUID->"23c2d0dd-ff5f-423e-aa75-6ffcbe05ca2e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Most", "[", "list3", "]"}]], "Input",
 CellChangeTimes->{{3.902179989565403*^9, 3.902179989570094*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"35890e6a-80e6-486b-ba8a-a9b2c9ca689a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"8", ",", "2.72`"}], "}"}]], "Output",
 CellChangeTimes->{3.902179999206629*^9, 3.902180101011075*^9, 
  3.902180727731772*^9, 3.902181050422296*^9, 3.902260473284546*^9, 
  3.902262430576852*^9, 3.902263038842259*^9, 3.902263173434664*^9, 
  3.9023344639300013`*^9, 3.902337858148336*^9, 3.902350671662107*^9, 
  3.902604457364102*^9, 3.902753806070418*^9, 3.907094791223422*^9, 
  3.907095536769874*^9, 3.907858806023335*^9, 3.919011110859709*^9},
 CellLabel->
  "Out[134]=",ExpressionUUID->"f64086e2-7caf-472d-adb0-8751916cee52"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Take", "[", 
  RowBox[{"list3", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.902180236915847*^9, 3.902180236918893*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"bba13bc1-fd94-42f9-9a8c-687557a94293"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"8", ",", "2.72`"}], "}"}]], "Output",
 CellChangeTimes->{3.902180237463181*^9, 3.902180727755493*^9, 
  3.902181050445847*^9, 3.902260473289202*^9, 3.902262430598672*^9, 
  3.902263038862558*^9, 3.902263173440909*^9, 3.902334463945561*^9, 
  3.902337858167767*^9, 3.9023506716682577`*^9, 3.902604466703282*^9, 
  3.902753806078401*^9, 3.907094792912746*^9, 3.9070955367937117`*^9, 
  3.907858806027899*^9, 3.919011110879681*^9},
 CellLabel->
  "Out[135]=",ExpressionUUID->"9826fca1-bad5-4344-b2df-4fc42a1e5104"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Take", "[", 
  RowBox[{"list3", ",", 
   RowBox[{"-", "1"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9021802451325507`*^9, 3.902180245135933*^9}},
 CellLabel->
  "In[136]:=",ExpressionUUID->"ac918779-296c-416c-a713-1a51308460df"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"\[Beta]", ",", "ex", ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "\<\"Plane\"\>"}], "}"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.902180245534527*^9, 3.902180727761956*^9, 
  3.902181050452261*^9, 3.90226047329679*^9, 3.902262430604686*^9, 
  3.902263038868711*^9, 3.902263173465139*^9, 3.902334463950319*^9, 
  3.90233785817257*^9, 3.902350671683659*^9, 3.902604476113826*^9, 
  3.9027538061025*^9, 3.907094795033673*^9, 3.90709553680153*^9, 
  3.907858806033258*^9, 3.919011110885543*^9},
 CellLabel->
  "Out[136]=",ExpressionUUID->"497358dd-3a7a-4880-afd4-b76f6894a653"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Take", "[", 
  RowBox[{"list3", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.902180262405925*^9, 3.902180262409667*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"51bc6057-c0ee-4501-9b96-67f4a0e1573c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"8", ",", "2.72`", ",", 
   RowBox[{"{", 
    RowBox[{"\[Beta]", ",", "ex", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "\<\"Plane\"\>"}], "}"}]}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.902180263422678*^9, 3.9021807277679987`*^9, 
  3.9021810504574013`*^9, 3.902260473313546*^9, 3.902262430625239*^9, 
  3.902263038890064*^9, 3.9022631734715*^9, 3.9023344639542212`*^9, 
  3.902337858177437*^9, 3.902350671689114*^9, 3.902604485797373*^9, 
  3.902753806109487*^9, 3.907094796785041*^9, 3.907095536826349*^9, 
  3.907858806039406*^9, 3.919011110902832*^9},
 CellLabel->
  "Out[137]=",ExpressionUUID->"e857b590-8a94-4fc3-91f2-d2f188bd0a77"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["2.3.2 Assigning or Removing Values", "Subsection",
 CellChangeTimes->{{3.902604571885261*^9, 
  3.902604591674024*^9}},ExpressionUUID->"979a3cb6-100c-446a-b9a6-\
9e0d4575a5d7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"list4", "=", 
   RowBox[{"{", 
    RowBox[{"\"\<Soccer\>\"", ",", "\"\<Basketball\>\"", ",", "0", ",", "9"}],
     "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"list4", "[", 
   RowBox[{"[", "2", "]"}], "]"}], "=", "1", " ", 
  RowBox[{"(*", 
   RowBox[{
   "position", " ", "2", " ", "corresponds", " ", "to", " ", "the", " ", 
    "string", " ", "Basketball", " ", "and", " ", "we", " ", "change", " ", 
    "it", " ", "for", " ", "the", " ", "number", " ", "1"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.9021804121482983`*^9, 3.902180412151311*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"af3fecfa-106b-4cf3-a275-f85b6e6e5202"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.9021804130703917`*^9, 3.902180727773488*^9, 
  3.9021810504630632`*^9, 3.902260473319085*^9, 3.902262430631468*^9, 
  3.902262519789985*^9, 3.902263038895805*^9, 3.902263173477133*^9, 
  3.902334463958064*^9, 3.902337858182425*^9, 3.902350671694722*^9, 
  3.902604614016552*^9, 3.9027538061151257`*^9, 3.907094978627692*^9, 
  3.907095536833377*^9, 3.907858806056629*^9, 3.919011110908382*^9},
 CellLabel->
  "Out[139]=",ExpressionUUID->"246634b2-d820-4310-bca6-38ef602c4d91"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["list4"], "Input",
 CellChangeTimes->{{3.9021804972694197`*^9, 3.902180497272459*^9}},
 CellLabel->
  "In[140]:=",ExpressionUUID->"afd65613-6ee1-4d17-a566-a991596b6149"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Soccer\"\>", ",", "1", ",", "0", ",", "9"}], "}"}]], "Output",
 CellChangeTimes->{3.902180497787557*^9, 3.902180727797133*^9, 
  3.902181050484382*^9, 3.902260473323717*^9, 3.902262430652691*^9, 
  3.902262523582199*^9, 3.902263038900361*^9, 3.902263173482855*^9, 
  3.902334463975034*^9, 3.902337858203195*^9, 3.902350671702195*^9, 
  3.902604625499035*^9, 3.902753806135104*^9, 3.90709498047736*^9, 
  3.907095536861024*^9, 3.9078588060631933`*^9, 3.9190111109269743`*^9},
 CellLabel->
  "Out[140]=",ExpressionUUID->"7c00030a-e2df-4882-b987-b1557aea3a02"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReplacePart", "[", 
  RowBox[{"list4", ",", 
   RowBox[{"Exp", "[", "X", "]"}], ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.902180576509386*^9, 3.9021805765125933`*^9}, {
  3.902180628474492*^9, 3.902180628749928*^9}},
 CellLabel->
  "In[141]:=",ExpressionUUID->"5b2edfe6-80f2-42f1-bbae-0fa0ab75aed8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Soccer\"\>", ",", "1", ",", "0", ",", 
   SuperscriptBox["\[ExponentialE]", "X"]}], "}"}]], "Output",
 CellChangeTimes->{3.902180577140863*^9, 3.902180629690445*^9, 
  3.902180727803578*^9, 3.902181050490906*^9, 3.9022604733298683`*^9, 
  3.902262430659087*^9, 3.902262530446319*^9, 3.902263038906658*^9, 
  3.902263173504817*^9, 3.902334463979892*^9, 3.902337858208763*^9, 
  3.902350671717738*^9, 3.9026046355331173`*^9, 3.902753806141517*^9, 
  3.907094982351625*^9, 3.907095536868264*^9, 3.9078588060705023`*^9, 
  3.9190111109324703`*^9},
 CellLabel->
  "Out[141]=",ExpressionUUID->"9f00f174-b70c-4ea5-88de-24ea67b3c8e1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrependTo", "[", 
  RowBox[{"list4", ",", "\"\<Blue\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.902180765110161*^9, 3.902180765112986*^9}},
 CellLabel->
  "In[142]:=",ExpressionUUID->"474a0093-f578-4781-a6ba-4ed4c0af2500"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Blue\"\>", ",", "\<\"Soccer\"\>", ",", "1", ",", "0", ",", 
   "9"}], "}"}]], "Output",
 CellChangeTimes->{3.902180765616775*^9, 3.902181050513873*^9, 
  3.902260473346223*^9, 3.902262430664895*^9, 3.9022625322715607`*^9, 
  3.902263038925123*^9, 3.902263173511218*^9, 3.902334463995932*^9, 
  3.902337858213924*^9, 3.902350671723363*^9, 3.902604651465042*^9, 
  3.902753806159852*^9, 3.907094984036457*^9, 3.907095536893805*^9, 
  3.907858806074501*^9, 3.919011110949003*^9},
 CellLabel->
  "Out[142]=",ExpressionUUID->"350e12bf-cc5a-4a7f-9b29-06e2c373d07b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppendTo", "[", 
  RowBox[{"list4", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.902180775243797*^9, 3.902180775247194*^9}},
 CellLabel->
  "In[143]:=",ExpressionUUID->"d6e8269c-3417-4b4c-88f2-4622c75a2441"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Blue\"\>", ",", "\<\"Soccer\"\>", ",", "1", ",", "0", ",", "9",
    ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{3.902180775717511*^9, 3.902181050520021*^9, 
  3.902260473351692*^9, 3.902262430671351*^9, 3.902262534630949*^9, 
  3.902263038930702*^9, 3.9022631735323668`*^9, 3.9023344640007*^9, 
  3.902337858221285*^9, 3.90235067172824*^9, 3.9026046540379357`*^9, 
  3.90275380616567*^9, 3.907094986141027*^9, 3.9070955369020376`*^9, 
  3.9078588060904713`*^9, 3.9190111109549847`*^9},
 CellLabel->
  "Out[143]=",ExpressionUUID->"a66adc81-e24b-43ac-9ad8-4555d83d06a1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"list4", 
  RowBox[{"(*", 
   RowBox[{
   "we", " ", "can", " ", "check", " ", "the", " ", "addition", " ", "of", 
    " ", "new", " ", 
    RowBox[{"values", "."}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.902180798243895*^9, 3.902180798246971*^9}},
 CellLabel->
  "In[144]:=",ExpressionUUID->"1f1bfa12-bd08-4d52-8f81-22ba002f6bbc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Blue\"\>", ",", "\<\"Soccer\"\>", ",", "1", ",", "0", ",", "9",
    ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{3.9021808045102873`*^9, 3.902181050539613*^9, 
  3.902260473356647*^9, 3.902262430694708*^9, 3.902262537326862*^9, 
  3.9022630389353538`*^9, 3.9022631735382023`*^9, 3.902334464004792*^9, 
  3.9023378582414637`*^9, 3.9023506717350063`*^9, 3.90260465673792*^9, 
  3.902753806182744*^9, 3.907094988130931*^9, 3.9070955369292583`*^9, 
  3.907858806095129*^9, 3.9190111109604797`*^9},
 CellLabel->
  "Out[144]=",ExpressionUUID->"674a3b7e-37f7-4cef-9d4d-2734c6e54fda"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Drop", "[", 
    RowBox[{"list4", ",", "3"}], "]"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"first", " ", "3", " ", "elements"}], ",", 
    RowBox[{"Delete", "[", 
     RowBox[{"list3", ",", "3"}], "]"}]}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Drop", "[", 
   RowBox[{"list4", ",", 
    RowBox[{"{", "5", "}"}]}], "]"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"or", " ", "by", " ", "position"}], ",", "position", ",", 
    RowBox[{"number", " ", "5"}]}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.902180924704511*^9, 3.902180951872957*^9}},
 CellLabel->
  "In[145]:=",ExpressionUUID->"b5f1308b-949f-45fa-ba39-7d6d31b9e4db"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Blue\"\>", ",", "\<\"Soccer\"\>", ",", "1", ",", "0", ",", 
   "4"}], "}"}]], "Output",
 CellChangeTimes->{3.9021809251820383`*^9, 3.902181050546023*^9, 
  3.902260473363566*^9, 3.90226243070229*^9, 3.902262540600951*^9, 
  3.90226303894114*^9, 3.902263173543062*^9, 3.902334464008771*^9, 
  3.902337858247056*^9, 3.9023506717503443`*^9, 3.902604673500204*^9, 
  3.902753806189671*^9, 3.907094990078925*^9, 3.9070955369364376`*^9, 
  3.907858806100481*^9, 3.91901111096562*^9},
 CellLabel->
  "Out[146]=",ExpressionUUID->"513475e6-10c1-4766-85ef-6e97e4161a28"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Delete", "[", 
  RowBox[{"list4", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "1", "}"}], ",", 
     RowBox[{"{", "5", "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9021813260691833`*^9, 3.902181326072225*^9}},
 CellLabel->
  "In[147]:=",ExpressionUUID->"17e8c43d-39e2-42de-baf2-294fead817db"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Soccer\"\>", ",", "1", ",", "0", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{3.902181329160042*^9, 3.902260473381161*^9, 
  3.902262430723819*^9, 3.902262542883233*^9, 3.902263038959646*^9, 
  3.902263173550343*^9, 3.902334464026873*^9, 3.90233785826903*^9, 
  3.902350671755785*^9, 3.902604681799078*^9, 3.902753806207684*^9, 
  3.907094992191405*^9, 3.9070955369624586`*^9, 3.907858806105811*^9, 
  3.919011110986484*^9},
 CellLabel->
  "Out[147]=",ExpressionUUID->"86196a30-dd60-4102-8efd-d56fae6c80f5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Insert", "[", 
  RowBox[{"list4", ",", 
   RowBox[{"2", "/", "43.23"}], ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.9021816290952873`*^9, 3.90218162910075*^9}},
 CellLabel->
  "In[148]:=",ExpressionUUID->"54f44962-d6c6-4990-8891-d21dbef7e1c6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Blue\"\>", ",", "\<\"Soccer\"\>", ",", "0.046264168401572985`",
    ",", "1", ",", "0", ",", "9", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{3.902181629894807*^9, 3.9022604733865347`*^9, 
  3.902262430730319*^9, 3.902262544665275*^9, 3.902263038965251*^9, 
  3.902263173571283*^9, 3.902334464031628*^9, 3.902337858274012*^9, 
  3.9023506717607117`*^9, 3.902604690264875*^9, 3.90275380621437*^9, 
  3.90709499393066*^9, 3.907095536972379*^9, 3.9078588061211147`*^9, 
  3.919011110992317*^9},
 CellLabel->
  "Out[148]=",ExpressionUUID->"397932d6-f763-4951-86fd-46a05d29f2a7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Insert", "[", 
  RowBox[{"list4", ",", "0.023", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"-", "6"}], "}"}], ",", 
     RowBox[{"{", "7", "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.902260692354206*^9, 3.9022606923567877`*^9}},
 CellLabel->
  "In[149]:=",ExpressionUUID->"21aba9ca-8682-4ae6-9257-e723c1ff2ad1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Blue\"\>", ",", "0.023`", ",", "\<\"Soccer\"\>", ",", "1", ",",
    "0", ",", "9", ",", "4", ",", "0.023`"}], "}"}]], "Output",
 CellChangeTimes->{3.902260693318562*^9, 3.902262430753767*^9, 
  3.902262546368697*^9, 3.902263038969874*^9, 3.9022631735770392`*^9, 
  3.902334464048074*^9, 3.90233785827846*^9, 3.902350671767394*^9, 
  3.90260470600126*^9, 3.902753806234735*^9, 3.907094995910221*^9, 
  3.907095536996132*^9, 3.907858806125834*^9, 3.919011111009749*^9},
 CellLabel->
  "Out[149]=",ExpressionUUID->"6badbf7a-d6f4-43e1-9ebd-c34ee30207fc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ArrayPad", "[", 
   RowBox[{"list4", ",", "1"}], "]"}], 
  RowBox[{"(*", 
   RowBox[{
   "number", " ", "1", " ", "means", " ", "one", " ", "zero", " ", "each", 
    " ", "side"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.902260773345363*^9, 3.902260773348431*^9}},
 CellLabel->
  "In[150]:=",ExpressionUUID->"d542ed7b-1687-4db5-9a1f-adb1e69ed220"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "\<\"Blue\"\>", ",", "\<\"Soccer\"\>", ",", "1", ",", "0", ",", 
   "9", ",", "4", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.902260776559135*^9, 3.902262430760718*^9, 
  3.902262548462433*^9, 3.9022630389746323`*^9, 3.902263173598768*^9, 
  3.902334464115849*^9, 3.902337858285013*^9, 3.902350671782675*^9, 
  3.90260472109769*^9, 3.902753806241297*^9, 3.907094997650336*^9, 
  3.907095537003625*^9, 3.907858806140623*^9, 3.919011111015147*^9},
 CellLabel->
  "Out[150]=",ExpressionUUID->"c873c5ea-5927-45fe-9649-83e433ccac8e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ArrayPad", "[", 
   RowBox[{"list4", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}]}], "]"}], 
  RowBox[{"(*", 
   RowBox[{
   "1", " ", "zero", " ", "to", " ", "the", " ", "left", " ", "and", " ", "2",
     " ", "zeros", " ", "to", " ", "the", " ", "right"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.902260824898815*^9, 3.90226082490581*^9}},
 CellLabel->
  "In[151]:=",ExpressionUUID->"23dd2ec1-5a8a-4df0-b170-16a2236f523d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "\<\"Blue\"\>", ",", "\<\"Soccer\"\>", ",", "1", ",", "0", ",", 
   "9", ",", "4", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.902260825425805*^9, 3.902262430785294*^9, 
  3.902262550371313*^9, 3.902263038994142*^9, 3.902263173604772*^9, 
  3.9023344641207337`*^9, 3.902337858304336*^9, 3.902350671788227*^9, 
  3.902604738921257*^9, 3.902753806259349*^9, 3.9070949998771753`*^9, 
  3.9070955370307837`*^9, 3.907858806145275*^9, 3.919011111029973*^9},
 CellLabel->
  "Out[151]=",ExpressionUUID->"9bbbcdb3-b4ec-424f-acf2-0de98bcd8972"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ArrayPad", "[", 
   RowBox[{"list4", ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "3"}], "}"}], ",", "\"\<z\>\""}], "]"}], 
  RowBox[{"(*", 
   RowBox[{
   "Adding", " ", "the", " ", "letter", " ", "z", " ", "three", " ", "times", 
    " ", "only", " ", "the", " ", "right", " ", "side"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.902260900628905*^9, 3.902260900632306*^9}},
 CellLabel->
  "In[152]:=",ExpressionUUID->"f9e023c0-06f3-46ce-a0a5-100c92a11d8b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Blue\"\>", ",", "\<\"Soccer\"\>", ",", "1", ",", "0", ",", "9",
    ",", "4", ",", "\<\"z\"\>", ",", "\<\"z\"\>", ",", "\<\"z\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.902260901041602*^9, 3.902262430791786*^9, 
  3.902262552285459*^9, 3.902263038999737*^9, 3.902263173609558*^9, 
  3.902334464124797*^9, 3.902337858309375*^9, 3.9023506718039627`*^9, 
  3.902604744417931*^9, 3.9027538062660017`*^9, 3.907095001802989*^9, 
  3.90709553703922*^9, 3.907858806149466*^9, 3.919011111035655*^9},
 CellLabel->
  "Out[152]=",ExpressionUUID->"1502d4f9-a175-4c24-94ea-8ca9adc0959e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"newVal", "=", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1", ",", "4", ",", "9"}], "}"}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "Here", " ", "we", " ", "add", " ", "them", " ", "on", " ", "the", " ", 
    "left", " ", "side"}], "*)"}]}], "\n", 
 RowBox[{"ArrayPad", "[", 
  RowBox[{"list4", ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "0"}], "}"}], ",", "newVal"}], "]"}]}], "Input",
 CellChangeTimes->{{3.902260942118753*^9, 3.902260942122039*^9}, {
  3.902262501982461*^9, 3.902262504016773*^9}, {3.902263046296719*^9, 
  3.9022631580653276`*^9}},
 CellLabel->
  "In[153]:=",ExpressionUUID->"864aed9e-befa-4541-b989-26ce1304535d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "4", ",", "9", ",", "0", ",", "1", ",", "\<\"Blue\"\>", 
   ",", "\<\"Soccer\"\>", ",", "1", ",", "0", ",", "9", ",", "4"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.90226305658601*^9, 3.9022631415671*^9}, 
   3.902263173616726*^9, 3.902334464147832*^9, 3.90233785831431*^9, 
   3.902350671809635*^9, 3.902604761381752*^9, 3.902753806284261*^9, 
   3.90709500361322*^9, 3.907095537063486*^9, 3.9078588061539907`*^9, 
   3.919011111041081*^9},
 CellLabel->
  "Out[154]=",ExpressionUUID->"1fcaf0f4-5fa3-4880-b26b-b3612483fe7a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ArrayPad", "[", 
   RowBox[{"list4", ",", 
    RowBox[{"-", "1"}]}], "]"}], 
  RowBox[{"(*", 
   RowBox[{
   "it", " ", "deletes", " ", "the", " ", "first", " ", "and", " ", "last", 
    " ", "elements"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.902263227687707*^9, 3.902263227694298*^9}, 
   3.919012106764352*^9},ExpressionUUID->"55f331e0-d18d-43ab-8f81-\
a6648f26dbcc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Soccer\"\>", ",", "1", ",", "0", ",", "9"}], "}"}]], "Output",
 CellChangeTimes->{3.902263228123708*^9, 3.902334464152539*^9, 
  3.90233785831909*^9, 3.9023506718148513`*^9, 3.902604771296582*^9, 
  3.902753806290606*^9, 3.907095005302623*^9, 3.907095537072371*^9, 
  3.9078588061680093`*^9, 3.919011111048848*^9},
 CellLabel->
  "Out[155]=",ExpressionUUID->"df304230-eb06-48fc-8aa3-4958ff6c1280"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["2.3.3 Structuring List", "Subsection",
 CellChangeTimes->{{3.902604783608644*^9, 
  3.902604813313234*^9}},ExpressionUUID->"7864536a-ca6b-4672-b49d-\
34d268dac4e1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sort", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "1", ",", "12", ",", "2", ",", "43", ",", "24", ",", "553", ",", "65", 
     ",", "3"}], "}"}], ",", "Greater"}], "]"}]], "Input",
 CellChangeTimes->{{3.902334475602991*^9, 3.902334475605778*^9}},
 CellLabel->
  "In[156]:=",ExpressionUUID->"7ff503b3-64ee-4d75-952c-263daf05f328"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "553", ",", "65", ",", "43", ",", "24", ",", "12", ",", "3", ",", "2", ",", 
   "1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.9023344763347054`*^9, 3.902337858338171*^9, 3.902350671821822*^9, {
   3.902604818853952*^9, 3.902604826682268*^9}, 3.902753806307505*^9, 
   3.907095185157843*^9, 3.907095537099523*^9, 3.907858806173386*^9, 
   3.919011111065172*^9},
 CellLabel->
  "Out[156]=",ExpressionUUID->"45628b60-3dd5-4736-beb3-8c8fc98eedfc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sort", "[", 
  RowBox[{"{", 
   RowBox[{
   "\"\<b\>\"", ",", "\"\<c\>\"", ",", "\"\<zz\>\"", ",", "\"\<sa\>\"", ",", 
    "\"\<t\>\"", ",", "\"\<p\>\""}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.90233451130511*^9, 3.902334511308074*^9}},
 CellLabel->
  "In[157]:=",ExpressionUUID->"c884f600-eb14-47c4-8f59-d73c7f98b43e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"b\"\>", ",", "\<\"c\"\>", ",", "\<\"p\"\>", ",", "\<\"sa\"\>", 
   ",", "\<\"t\"\>", ",", "\<\"zz\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.902334511767983*^9, 3.9023378583431387`*^9, 
  3.9023506718371553`*^9, 3.902604830482634*^9, 3.902753806313758*^9, 
  3.907095186289442*^9, 3.907095537108118*^9, 3.907858806187615*^9, 
  3.919011111071155*^9},
 CellLabel->
  "Out[157]=",ExpressionUUID->"1107cf5e-5736-440a-8546-1ff429eec779"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reverse", "[", 
  RowBox[{"{", 
   RowBox[{
   "1", ",", "12", ",", "2", ",", "43", ",", "24", ",", "553", ",", "65", ",",
     "3"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.902334882493504*^9, 3.902334882496763*^9}},
 CellLabel->
  "In[158]:=",ExpressionUUID->"c51af4d9-bdb0-4a34-99db-0f7f4bfd085f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "3", ",", "65", ",", "553", ",", "24", ",", "43", ",", "2", ",", "12", ",", 
   "1"}], "}"}]], "Output",
 CellChangeTimes->{3.902334883081737*^9, 3.902337858348567*^9, 
  3.902350671842703*^9, 3.9026048349037037`*^9, 3.902753806333083*^9, 
  3.907095186927248*^9, 3.907095537134877*^9, 3.907858806192236*^9, 
  3.919011111076644*^9},
 CellLabel->
  "Out[158]=",ExpressionUUID->"3011f9bb-a2cd-450a-847d-5b5330f0954a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Partition", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "1", ",", "12", ",", "2", ",", "43", ",", "24", ",", "553", ",", "65", 
     ",", "3"}], "}"}], ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.9023349353262587`*^9, 3.902334935329111*^9}},
 CellLabel->
  "In[159]:=",ExpressionUUID->"f6296dea-33f5-476b-9791-9bf3968482be"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "43"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"24", ",", "553"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"65", ",", "3"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.902334935748743*^9, 3.902337858352766*^9, 
  3.902350671847955*^9, 3.902604855214817*^9, 3.902753806338801*^9, 
  3.9070951875655813`*^9, 3.907095537142047*^9, 3.907858806207264*^9, 
  3.9190111110824013`*^9},
 CellLabel->
  "Out[159]=",ExpressionUUID->"8117dafa-df61-44a9-a92a-48f8dd73e80c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Partition", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "12", ",", "2", ",", "43", ",", "24", ",", "553"}], 
    "}"}], ",", "3", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.902334973198111*^9, 3.902334973201662*^9}},
 CellLabel->
  "In[160]:=",ExpressionUUID->"540eda5f-db43-4ac7-89dc-6138ed3e9796"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "12", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "2", ",", "43"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "43", ",", "24"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"43", ",", "24", ",", "553"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.902334979785411*^9, 3.902337858374676*^9, 
  3.902350671852871*^9, 3.902604861929508*^9, 3.902753806355941*^9, 
  3.907095188214619*^9, 3.907095537166571*^9, 3.9078588062119837`*^9, 
  3.919011111097967*^9},
 CellLabel->
  "Out[160]=",ExpressionUUID->"482ba854-7e9d-40ab-94d5-1ff632b8ffae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Partition", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "\"\<b\>\"", ",", "\"\<c\>\"", ",", "\"\<zz\>\"", ",", "\"\<sa\>\"", ",", 
     "\"\<t\>\"", ",", "\"\<p\>\""}], "}"}], ",", "2", ",", "4"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.9023378498191853`*^9, 3.902337849821335*^9}},
 CellLabel->
  "In[161]:=",ExpressionUUID->"98894e91-a78f-4012-ae3d-3d4df2ec1beb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"b\"\>", ",", "\<\"c\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"t\"\>", ",", "\<\"p\"\>"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.902337858379384*^9, 3.902350671868136*^9, 
  3.90260486827252*^9, 3.9027538063626633`*^9, 3.907095189042643*^9, 
  3.9070955371744637`*^9, 3.907858806216057*^9, 3.9190111111033382`*^9},
 CellLabel->
  "Out[161]=",ExpressionUUID->"507d8cac-7a51-4425-86ad-c91306309645"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "12"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "43"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"24", ",", "553"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"65", ",", "3"}], "}"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.902337926342639*^9, 3.902337926345487*^9}},
 CellLabel->
  "In[162]:=",ExpressionUUID->"30a0a647-48e7-43db-888d-e93066841de6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "12", ",", "2", ",", "43", ",", "24", ",", "553", ",", "65", ",", 
   "3"}], "}"}]], "Output",
 CellChangeTimes->{3.902337927628558*^9, 3.90235067187381*^9, 
  3.902604879995688*^9, 3.902753806385535*^9, 3.907095190732209*^9, 
  3.907095537198151*^9, 3.907858806220477*^9, 3.919011111109816*^9},
 CellLabel->
  "Out[162]=",ExpressionUUID->"a27d88c9-6a26-4756-a563-5aebc8172a79"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "1", "}"}], ",", "1"}], "}"}], ",", "1"}], "}"}], ",", 
      "1"}], "}"}], ",", "1"}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "here", " ", "we", " ", "flatten", " ", "a", " ", "list", " ", "with", " ",
     "a", " ", "level", " ", "1", " ", 
    RowBox[{"depth", "."}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.902338001068017*^9, 3.902338001070789*^9}},
 CellLabel->
  "In[163]:=",ExpressionUUID->"d3589286-0f05-4eb4-b1ef-f119389b0d40"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "1", "}"}], ",", "1"}], "}"}], ",", "1", ",", "1"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.902338011604109*^9, 3.902350671879135*^9, 
  3.902604884061823*^9, 3.902753806392112*^9, 3.907095191442531*^9, 
  3.907095537206235*^9, 3.9078588062350597`*^9, 3.919011111115868*^9},
 CellLabel->
  "Out[163]=",ExpressionUUID->"917482db-f6c1-4331-a91c-d517576bebba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ArrayReshape", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "1", ",", "12", ",", "2", ",", "43", ",", "24", ",", "553", ",", "65", 
     ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.902338047574531*^9, 3.902338047577973*^9}},
 CellLabel->
  "In[164]:=",ExpressionUUID->"c9520650-6cce-4518-8883-edef02f51d56"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "12", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"43", ",", "24", ",", "553"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"65", ",", "3", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.902338048041251*^9, 3.9023506718861628`*^9, 
  3.902604896063016*^9, 3.90275380641*^9, 3.907095192709168*^9, 
  3.907095537229664*^9, 3.9078588062399*^9, 3.91901111113306*^9},
 CellLabel->
  "Out[164]=",ExpressionUUID->"e00ab700-6b7a-4fd6-92fa-35d98d28044d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ArrayReshape", "[", 
  RowBox[{
   RowBox[{"{", "6", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9023380939818983`*^9, 3.902338093984762*^9}},
 CellLabel->
  "In[165]:=",ExpressionUUID->"b5966382-74ed-4a51-9460-868a85f77e26"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"6", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.9023380943449583`*^9, 3.902350671901379*^9, 
  3.902604919494237*^9, 3.902753806416548*^9, 3.90709519476235*^9, 
  3.907095537236188*^9, 3.907858806254105*^9, 3.9190111111389217`*^9},
 CellLabel->
  "Out[165]=",ExpressionUUID->"9d41c4fa-5cdb-453b-ac87-ae6eacf81d8c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SortBy", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "1", ",", "4", ",", "553", ",", "12.52", ",", "4.3", ",", "24", ",", 
     RowBox[{"7", "/", "11"}]}], "}"}], ",", "N"}], "]"}]], "Input",
 CellChangeTimes->{{3.902338140896839*^9, 3.902338140900303*^9}},
 CellLabel->
  "In[166]:=",ExpressionUUID->"363f1c83-e818-41cc-b2e4-a4c982c59ccd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["7", "11"], ",", "1", ",", "4", ",", "4.3`", ",", "12.52`", 
   ",", "24", ",", "553"}], "}"}]], "Output",
 CellChangeTimes->{3.902338142077123*^9, 3.9023506719069443`*^9, 
  3.902604925332458*^9, 3.902753806434781*^9, 3.907095195297511*^9, 
  3.907095537256612*^9, 3.907858806258664*^9, 3.9190111111574707`*^9},
 CellLabel->
  "Out[166]=",ExpressionUUID->"2acbe82a-cd80-4e4a-be91-8f3401c09f40"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["2.3.4 Criteria Selection", "Subsection",
 CellChangeTimes->{{3.9026049445919113`*^9, 
  3.902604959768395*^9}},ExpressionUUID->"914f0dfb-a853-46fb-8200-\
ea57a93f23be"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nmbrList", "=", 
   RowBox[{"List", "[", 
    RowBox[{
    "12", ",", "5", ",", "6", ",", "345", ",", "7", ",", "3", ",", "1", ",", 
     "5"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Select", "[", 
   RowBox[{"nmbrList", ",", "EvenQ"}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "only", " ", "the", " ", "values", " ", "that", " ", "return", " ", 
     "True", " ", "are", " ", "selected"}], ",", 
    RowBox[{
    "in", " ", "this", " ", "case", " ", "values", " ", "that", " ", "are", 
     " ", "even"}]}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.902338198737586*^9, 3.9023381987406397`*^9}},
 CellLabel->
  "In[167]:=",ExpressionUUID->"9ab7cc99-0a17-40c4-8c98-c49ce1dcaff4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"12", ",", "6"}], "}"}]], "Output",
 CellChangeTimes->{3.902338199104474*^9, 3.902340500817769*^9, 
  3.902350671912466*^9, 3.902604994737006*^9, 3.902753806440774*^9, 
  3.907095311777067*^9, 3.907095537262375*^9, 3.907858806274009*^9, 
  3.919011111165254*^9},
 CellLabel->
  "Out[168]=",ExpressionUUID->"be2cbbe2-eaf9-4a04-9fbf-37533ff0aab3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Pick", "[", 
  RowBox[{"nmbrList", ",", 
   RowBox[{"PrimeQ", "@", "nmbrList"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.902338226903249*^9, 3.902338226906007*^9}},
 CellLabel->
  "In[169]:=",ExpressionUUID->"31921e89-fc9f-4793-bdcf-5557a573874d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5", ",", "7", ",", "3", ",", "5"}], "}"}]], "Output",
 CellChangeTimes->{3.902338230529455*^9, 3.902350671919625*^9, 
  3.902605003488019*^9, 3.902753806457552*^9, 3.907095313091869*^9, 
  3.907095537268291*^9, 3.907858806278724*^9, 3.919011111180228*^9},
 CellLabel->
  "Out[169]=",ExpressionUUID->"24fd972e-25fc-4c95-bb46-2c604d2cc313"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cases", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", "_", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.902338608102227*^9, 3.902338608104971*^9}},
 CellLabel->
  "In[170]:=",ExpressionUUID->"d10e4a28-0d37-4992-b397-59f05fd39a8f"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.902338609258852*^9, 3.902350671934883*^9, 
  3.902605019264552*^9, 3.902753806463479*^9, 3.907095313824904*^9, 
  3.907095537293552*^9, 3.907858806282846*^9, 3.919011111185329*^9},
 CellLabel->
  "Out[170]=",ExpressionUUID->"462fe021-2b7e-472d-a64f-1c23cd4d07d9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cases", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"_", ",", "_"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.902338711688963*^9, 3.9023387116917977`*^9}},
 CellLabel->
  "In[171]:=",ExpressionUUID->"7155863f-0f9b-4c75-8088-d4ec09298179"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.902338712152817*^9, 3.902350671940527*^9, 
  3.902605023879075*^9, 3.902753806483021*^9, 3.907095314443784*^9, 
  3.907095537300039*^9, 3.907858806287306*^9, 3.919011111190899*^9},
 CellLabel->
  "Out[171]=",ExpressionUUID->"29881378-584e-43f0-ad49-d8c9a4509468"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cases", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", "__", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9023387633217793`*^9, 3.902338763324628*^9}},
 CellLabel->
  "In[172]:=",ExpressionUUID->"775a24d3-90df-40fd-87de-eb023b7e5f12"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.902338763672972*^9, 3.902350671945962*^9, 
  3.902605028204602*^9, 3.9027538064889793`*^9, 3.90709531499435*^9, 
  3.90709553732766*^9, 3.9078588063030024`*^9, 3.919011111199164*^9},
 CellLabel->
  "Out[172]=",ExpressionUUID->"91b3a90f-1cd6-4787-aec0-adccf75f6431"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SeedRandom", "[", "1234", "]"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Employ", " ", 
    RowBox[{"SeedRandom", "[", "s", "]"}], " ", "to", " ", "ensure", " ", 
    "the", " ", "same", " ", "sequence", " ", "of", " ", "pseudorandom", " ", 
    "in", " ", "the", " ", "following", " ", 
    RowBox[{"examples", "."}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"tbl", "=", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "j", ",", "k", ",", 
       RowBox[{"RandomChoice", "[", 
        RowBox[{"{", 
         RowBox[{"\"\<Red\>\"", ",", "\"\<Blue\>\""}], "}"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", "3"}], "}"}]}], "]"}], "//", 
   "TableForm"}]}]}], "Input",
 CellChangeTimes->{{3.90233886743402*^9, 3.902338867436907*^9}, {
  3.9023389820319643`*^9, 3.9023389902202263`*^9}, {3.902339030511581*^9, 
  3.9023390313062687`*^9}, {3.902339065141594*^9, 3.902339088634152*^9}, {
  3.902339262409707*^9, 3.902339315695173*^9}, {3.919012240031414*^9, 
  3.919012240646837*^9}},
 CellLabel->
  "In[184]:=",ExpressionUUID->"9733c941-8327-4d0a-b474-7928d5c52062"],

Cell[BoxData[
 TagBox[GridBox[{
    {GridBox[{
       {"1", "1", "1", "\<\"Blue\"\>"},
       {"1", "1", "2", "\<\"Blue\"\>"},
       {"1", "1", "3", "\<\"Blue\"\>"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {{
           Offset[0.2]}}}], GridBox[{
       {"1", "2", "1", "\<\"Red\"\>"},
       {"1", "2", "2", "\<\"Red\"\>"},
       {"1", "2", "3", "\<\"Red\"\>"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {{
           Offset[0.2]}}}], GridBox[{
       {"1", "3", "1", "\<\"Red\"\>"},
       {"1", "3", "2", "\<\"Red\"\>"},
       {"1", "3", "3", "\<\"Red\"\>"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {{
           Offset[0.2]}}}]},
    {GridBox[{
       {"2", "1", "1", "\<\"Blue\"\>"},
       {"2", "1", "2", "\<\"Blue\"\>"},
       {"2", "1", "3", "\<\"Red\"\>"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {{
           Offset[0.2]}}}], GridBox[{
       {"2", "2", "1", "\<\"Blue\"\>"},
       {"2", "2", "2", "\<\"Red\"\>"},
       {"2", "2", "3", "\<\"Red\"\>"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {{
           Offset[0.2]}}}], GridBox[{
       {"2", "3", "1", "\<\"Blue\"\>"},
       {"2", "3", "2", "\<\"Red\"\>"},
       {"2", "3", "3", "\<\"Blue\"\>"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {{
           Offset[0.2]}}}]},
    {GridBox[{
       {"3", "1", "1", "\<\"Blue\"\>"},
       {"3", "1", "2", "\<\"Red\"\>"},
       {"3", "1", "3", "\<\"Blue\"\>"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {{
           Offset[0.2]}}}], GridBox[{
       {"3", "2", "1", "\<\"Red\"\>"},
       {"3", "2", "2", "\<\"Blue\"\>"},
       {"3", "2", "3", "\<\"Red\"\>"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {{
           Offset[0.2]}}}], GridBox[{
       {"3", "3", "1", "\<\"Red\"\>"},
       {"3", "3", "2", "\<\"Red\"\>"},
       {"3", "3", "3", "\<\"Red\"\>"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {{
           Offset[0.2]}}}]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.902338868214211*^9, {3.902338942380765*^9, 3.902338993601907*^9}, 
   3.902339031672308*^9, 3.902339338989199*^9, 3.9023506719542437`*^9, 
   3.90260504874243*^9, 3.902753806507312*^9, 3.907095316550378*^9, 
   3.907095537366148*^9, 3.907858806309321*^9, 3.919011111216158*^9, 
   3.919012244166893*^9},
 CellLabel->
  "Out[185]//TableForm=",ExpressionUUID->"1c835ebf-02e0-4340-bc1c-\
c5f19d2b1d1a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cases", "[", 
  RowBox[{"tbl", ",", 
   RowBox[{"{", 
    RowBox[{"_", ",", "_", ",", "_", ",", "\"\<Blue\>\""}], "}"}], ",", 
   RowBox[{"{", "4", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.902339471949317*^9, 3.902339471952586*^9}, {
  3.902339539378508*^9, 3.90233954602246*^9}, {3.9190122472497387`*^9, 
  3.919012247438054*^9}, {3.919012406287129*^9, 3.919012408179224*^9}},
 CellLabel->
  "In[194]:=",ExpressionUUID->"462d87f5-314c-476f-a0bd-a5889ce2c6d1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "2", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "3", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "1", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "2", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "1", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "1", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "3", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", "1", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", "3", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2", ",", "2", ",", "\<\"Blue\"\>"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.902339474339669*^9, 3.902350671970985*^9, 
  3.90260505944922*^9, 3.902753806513731*^9, 3.907095318091575*^9, 
  3.90709553739211*^9, 3.907858806323841*^9, 3.91901111122239*^9, 
  3.91901224776474*^9, 3.919012408923134*^9},
 CellLabel->
  "Out[194]=",ExpressionUUID->"1ec3b777-5aec-4596-938c-a33876e404c7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cases", "[", 
  RowBox[{"tbl", ",", 
   RowBox[{"{", 
    RowBox[{"__", ",", "\"\<Blue\>\""}], "}"}], ",", 
   RowBox[{"{", "4", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9023395324876018`*^9, 3.902339532490555*^9}, {
  3.9190122492381287`*^9, 3.919012249408739*^9}, {3.919012411299*^9, 
  3.919012412940113*^9}},
 CellLabel->
  "In[195]:=",ExpressionUUID->"c36cdeb8-896a-4726-adc4-84dbba711ffd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "2", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "3", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "1", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "2", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "1", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "1", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "3", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", "1", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", "3", ",", "\<\"Blue\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2", ",", "2", ",", "\<\"Blue\"\>"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.9023395329180326`*^9, 3.902350671976974*^9, 
  3.902605065457251*^9, 3.902753806555441*^9, 3.90709531894709*^9, 
  3.907095537397946*^9, 3.907858806328779*^9, 3.919011111236836*^9, 
  3.9190122496898813`*^9, 3.919012413540167*^9},
 CellLabel->
  "Out[195]=",ExpressionUUID->"9ad863bb-4768-41cf-b0c1-6555d1b80104"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Count", "[", 
  RowBox[{"tbl", ",", 
   RowBox[{"{", 
    RowBox[{"__", ",", "\"\<Blue\>\""}], "}"}], ",", 
   RowBox[{"{", "4", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.902339574555234*^9, 3.902339574558415*^9}, {
  3.919012252032957*^9, 3.919012258479477*^9}, {3.919012652690892*^9, 
  3.919012653637403*^9}},
 CellLabel->
  "In[196]:=",ExpressionUUID->"882bc6a7-f48f-44b0-82cc-ce1d03917af9"],

Cell[BoxData["11"], "Output",
 CellChangeTimes->{
  3.902339574886114*^9, 3.902350671994457*^9, 3.902605079772003*^9, 
   3.902753806562403*^9, {3.907095320084967*^9, 3.907095321677361*^9}, 
   3.907095537402729*^9, 3.907858806332992*^9, 3.91901111124304*^9, 
   3.9190122587754803`*^9, 3.919012654237363*^9},
 CellLabel->
  "Out[196]=",ExpressionUUID->"62e29b8d-af7e-420a-814d-7533c8bcd19f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Cases", "[", 
   RowBox[{"nmbrList", ",", 
    RowBox[{"x_", "/;", 
     RowBox[{"x", ">", "5"}]}]}], "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "only", " ", "the", " ", "values", " ", "greater", " ", "than", " ", "5", 
    " ", "are", " ", 
    RowBox[{"selected", "."}]}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
     "x", " ", "can", " ", "be", " ", "replaced", " ", "by", " ", "any", " ", 
      "arbitrary", " ", "symbol", " ", "try", " ", "using", " ", "z_", " ", 
      "and", " ", "z"}], ">", "5"}], ",", 
    RowBox[{
    "the", " ", "result", " ", "should", " ", "be", " ", "the", " ", 
     "same"}]}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.902340483036792*^9, 3.902340496736993*^9}},
 CellLabel->
  "In[178]:=",ExpressionUUID->"c07e0e63-acaf-4a17-af77-91fbae31e976"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"12", ",", "6", ",", "345", ",", "7"}], "}"}]], "Output",
 CellChangeTimes->{3.9023405031331177`*^9, 3.902350672003675*^9, 
  3.902605127017432*^9, 3.902753806590077*^9, 3.907095332694421*^9, 
  3.907095537407442*^9, 3.90785880634084*^9, 3.919011111256716*^9},
 CellLabel->
  "Out[178]=",ExpressionUUID->"0f767902-0ea7-4f07-aa59-9308c1c34253"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"mixList", "=", 
   RowBox[{"{", 
    RowBox[{"1.", ",", "1.2", ",", "\"\<4\>\"", ",", "\[Pi]", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<5.2\>\"", ",", "\"\<Dog\>\""}], "}"}], ",", "3", ",", "66",
      ",", 
     RowBox[{"{", 
      RowBox[{"Orange", ",", "Red"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Cases", "[", 
   RowBox[{"mixList", ",", "_Integer"}], "]"}], 
  RowBox[{"(*", 
   RowBox[{
   "We", " ", "now", " ", "select", " ", "the", " ", "number", " ", "that", 
    " ", "are", " ", "integers"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.902340829533423*^9, 3.902340829536256*^9}},
 CellLabel->
  "In[189]:=",ExpressionUUID->"cfbf16b1-c18f-4b43-9f11-d0d14a8f4940"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3", ",", "66"}], "}"}]], "Output",
 CellChangeTimes->{3.902340831400984*^9, 3.902350672020073*^9, 
  3.902605142190041*^9, 3.902753806596973*^9, 3.907095334460083*^9, 
  3.90709553742312*^9, 3.907858806355582*^9, 3.919011111263946*^9, 
  3.9190122635038757`*^9},
 CellLabel->
  "Out[190]=",ExpressionUUID->"fa5e8724-70b1-4b7c-8dd3-d68bc01f3777"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatchQ", "[", 
   RowBox[{"mixList", ",", 
    RowBox[{"_", "?", "ListQ"}]}], "]"}], 
  RowBox[{"(*", 
   RowBox[{
   "we", " ", "test", " ", "if", " ", "mixlist", " ", "has", " ", "a", " ", 
    "head", " ", "of", " ", "List"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.902340964361943*^9, 3.902340964365035*^9}},
 CellLabel->
  "In[191]:=",ExpressionUUID->"ee5c92a5-1031-4d35-826f-510a5c56b650"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.902340968186456*^9, 3.902350672025657*^9, 
  3.9026051558055267`*^9, 3.902753806619618*^9, 3.907095335533973*^9, 
  3.907095537428623*^9, 3.907858806360421*^9, 3.919011111273514*^9, 
  3.919012264625004*^9},
 CellLabel->
  "Out[191]=",ExpressionUUID->"ab4cffcc-a85a-4ce0-b071-866c39ff6441"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cases", "[", 
  RowBox[{"mixList", ",", 
   RowBox[{"_", "?", "StringQ"}], ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.902605195021256*^9, 3.902605195023754*^9}},
 CellLabel->
  "In[192]:=",ExpressionUUID->"dbb3c807-c7d4-460f-b728-2bf42ba899da"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"4\"\>", ",", "\<\"5.2\"\>", ",", "\<\"Dog\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.902605196683495*^9, 3.902753806625913*^9, 
  3.9070953361938343`*^9, 3.907095537433394*^9, 3.9078588063645563`*^9, 
  3.919011111280553*^9, 3.919012265395784*^9},
 CellLabel->
  "Out[192]=",ExpressionUUID->"7857a45c-a77f-4ee4-9c0d-4eca62f71761"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Cases", "[", 
   RowBox[{"mixList", ",", 
    RowBox[{
     RowBox[{"_", "?", "NumberQ"}], "|", 
     RowBox[{"_", "?", "String"}]}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "We", " ", "select", " ", "the", " ", "numbers", " ", "and", " ", "the", 
    " ", "strings"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.902341095551796*^9, 3.902341095554729*^9}},
 CellLabel->
  "In[193]:=",ExpressionUUID->"b36efad9-4e18-449b-826b-ee6d21720d44"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.`", ",", "1.2`", ",", "3", ",", "66"}], "}"}]], "Output",
 CellChangeTimes->{3.902341096151957*^9, 3.902350672030683*^9, 
  3.902605202597987*^9, 3.902753806631373*^9, 3.907095337110168*^9, 
  3.907095537440608*^9, 3.907858806368348*^9, 3.919011111291374*^9, 
  3.9190122663955717`*^9},
 CellLabel->
  "Out[193]=",ExpressionUUID->"023534ab-a49a-48ec-a9cf-cbb8b2b1264b"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1269, 816},
WindowMargins->{{12, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
Magnification:>1.25 Inherited,
FrontEndVersion->"14.0 for Mac OS X ARM (64-bit) (December 12, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"fbe80032-6e61-4148-8dd0-db6eabf41c6e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 344, 5, 86, "Chapter",ExpressionUUID->"41bebc66-3d17-47b9-9581-719b893821d4"],
Cell[CellGroupData[{
Cell[949, 31, 203, 4, 84, "Section",ExpressionUUID->"7352ce37-6561-4912-b62d-9f539991d964"],
Cell[CellGroupData[{
Cell[1177, 39, 194, 3, 37, "Input",ExpressionUUID->"d18cfc29-9dd8-4396-9bb3-10284c5e06f1"],
Cell[1374, 44, 13806, 326, 203, "Output",ExpressionUUID->"bf057439-96d2-4863-a839-bf56bf05d6f3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15217, 375, 223, 4, 67, "Subsection",ExpressionUUID->"ee76ec32-ca02-4dcb-b22c-1965a9f70575"],
Cell[CellGroupData[{
Cell[15465, 383, 329, 6, 37, "Input",ExpressionUUID->"4635b944-4c32-4292-9966-0a3d3feaf154"],
Cell[15797, 391, 1229, 24, 87, "Output",ExpressionUUID->"c012dbc6-90fd-412b-b409-95a93de1d527"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17063, 420, 324, 8, 37, "Input",ExpressionUUID->"4241b13c-d95c-4a6e-a178-99b1532e7e21"],
Cell[17390, 430, 1113, 17, 87, "Output",ExpressionUUID->"02eac862-ad91-4526-b391-b7841ae44543"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18540, 452, 307, 7, 37, "Input",ExpressionUUID->"bdc07e1f-cb66-4238-b5b4-e5a0ac73f071"],
Cell[18850, 461, 1285, 27, 87, "Output",ExpressionUUID->"72d72300-e5ce-4f69-96b4-e9447f71e750"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20172, 493, 426, 11, 37, "Input",ExpressionUUID->"5db9347f-340f-4ef1-b7eb-6bcc5b92af1b"],
Cell[20601, 506, 1089, 17, 87, "Output",ExpressionUUID->"c33bc280-d96f-4ced-a23b-24dceaa9b453"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21727, 528, 439, 8, 37, "Input",ExpressionUUID->"ff1375ac-2d5e-4492-a175-b40e8341db87"],
Cell[22169, 538, 1341, 25, 87, "Output",ExpressionUUID->"e22fdf54-3c58-40e3-a4fd-eeaff783457b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23547, 568, 226, 4, 37, "Input",ExpressionUUID->"a2785403-e69c-4c4d-b886-741bad04056b"],
Cell[23776, 574, 1053, 15, 87, "Output",ExpressionUUID->"36d18b38-9ed0-457e-86fd-7f90b6744462"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24866, 594, 284, 6, 37, "Input",ExpressionUUID->"040006f0-e56e-4e75-929d-0c57f787626d"],
Cell[25153, 602, 1072, 17, 87, "Output",ExpressionUUID->"0aabd51d-71ce-47f5-b955-d5ab3df8e6a2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26262, 624, 218, 4, 37, "Input",ExpressionUUID->"784c6450-bd15-467c-ad79-98d1a26bb0eb"],
Cell[26483, 630, 1126, 17, 87, "Output",ExpressionUUID->"a43ceb61-3148-45a3-b91d-8372bba02ef3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27646, 652, 482, 12, 37, "Input",ExpressionUUID->"85e6f87c-50cd-442f-b47e-77dfa213187b"],
Cell[28131, 666, 1307, 25, 87, "Output",ExpressionUUID->"3d63899a-8cd1-43fd-a688-5e991bc4760a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29475, 696, 295, 5, 37, "Input",ExpressionUUID->"e764bbec-6457-4bdd-a8da-9519f68985b2"],
Cell[29773, 703, 1130, 16, 87, "Output",ExpressionUUID->"b3f31e8b-8054-467e-8f06-c2f8c4b9d74c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30940, 724, 553, 14, 37, "Input",ExpressionUUID->"3448497f-b6c0-46ce-9791-4e82828e10f1"],
Cell[31496, 740, 1150, 20, 87, "Output",ExpressionUUID->"33cb0f04-d8a5-4a21-b533-7068d256da1d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32683, 765, 435, 10, 64, "Input",ExpressionUUID->"4e2c2688-db1b-4ed8-8aa8-12352b982421"],
Cell[33121, 777, 1024, 14, 87, "Output",ExpressionUUID->"ef02e105-610e-4ba8-be2e-bd55e005dbdd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34182, 796, 356, 8, 37, "Input",ExpressionUUID->"f5aaf00d-6b35-436c-b77d-3fe9bf7160cf"],
Cell[34541, 806, 1068, 17, 87, "Output",ExpressionUUID->"2a20533c-d8b9-45bc-b81a-df8b6706f6b3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35646, 828, 287, 6, 37, "Input",ExpressionUUID->"ed116db8-bebb-4a72-beec-00fafa08ea76"],
Cell[35936, 836, 1191, 23, 87, "Output",ExpressionUUID->"8a4bb7e5-5eb6-40ed-b49e-f4e636bd38ea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37164, 864, 305, 6, 37, "Input",ExpressionUUID->"e63f535f-1435-471d-bff2-370a0e5cb267"],
Cell[37472, 872, 1114, 18, 87, "Output",ExpressionUUID->"3eeaf08c-221d-43e7-aede-02a8f779155f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38623, 895, 212, 3, 37, "Input",ExpressionUUID->"f927ca6f-7855-47ce-a927-c6767067dffd"],
Cell[38838, 900, 1021, 16, 87, "Output",ExpressionUUID->"cdd02469-388d-439e-81bc-91ac46142366"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39896, 921, 479, 10, 37, "Input",ExpressionUUID->"0ec70845-54c3-4df1-a717-00c0353f481d"],
Cell[40378, 933, 1428, 27, 87, "Output",ExpressionUUID->"4115b152-6fe3-4a6a-94ed-f096b893d30c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41843, 965, 223, 4, 37, "Input",ExpressionUUID->"92f0dd6a-7200-4ebf-b59d-94789234836e"],
Cell[42069, 971, 992, 14, 87, "Output",ExpressionUUID->"87e2c268-756a-4fca-b63c-e151eda08c4b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43098, 990, 206, 3, 37, "Input",ExpressionUUID->"0e9ba341-902e-47ef-99d3-065936841b7b"],
Cell[43307, 995, 1059, 14, 87, "Output",ExpressionUUID->"7076d166-1a2b-452b-9fc3-df4474dec0dd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44403, 1014, 194, 3, 37, "Input",ExpressionUUID->"b1178bb0-8a17-4de0-a9f3-840291aeb606"],
Cell[44600, 1019, 987, 14, 87, "Output",ExpressionUUID->"46ae4b1e-b1c1-4474-921b-e1eb1dd97783"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45624, 1038, 192, 3, 37, "Input",ExpressionUUID->"961b3585-7f39-4638-8383-94651288d427"],
Cell[45819, 1043, 1000, 14, 87, "Output",ExpressionUUID->"27a1bda2-a78b-4881-830c-f3837829ffff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46856, 1062, 190, 2, 37, "Input",ExpressionUUID->"11c22cfc-91c2-413e-89d9-f95ae7b5190b"],
Cell[47049, 1066, 989, 14, 87, "Output",ExpressionUUID->"9be2f833-9263-4934-a61b-fc792acd1854"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48075, 1085, 236, 4, 37, "Input",ExpressionUUID->"4070a649-cd1f-4837-9d9f-d7b30e4c567d"],
Cell[48314, 1091, 1018, 14, 87, "Output",ExpressionUUID->"346a9a24-8322-41df-aac2-1daa03ac48ec"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49369, 1110, 248, 4, 37, "Input",ExpressionUUID->"99c4df2d-a428-4947-a2a3-0d4fe19bfb02"],
Cell[49620, 1116, 984, 14, 87, "Output",ExpressionUUID->"38456902-3544-4e37-bce4-a6ce9b862409"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50641, 1135, 296, 6, 37, "Input",ExpressionUUID->"0115a754-ab47-46bb-8001-9af01720dbfe"],
Cell[50940, 1143, 1001, 14, 87, "Output",ExpressionUUID->"187f1700-d50e-4ad3-9628-5711c4c7eea5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51978, 1162, 197, 3, 37, "Input",ExpressionUUID->"92428ad3-0b13-4e9b-826b-3ab637bc2b3d"],
Cell[52178, 1167, 1000, 14, 87, "Output",ExpressionUUID->"4067fc41-a695-4399-96bd-0fcacde732f0"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[53227, 1187, 226, 4, 46, "Subsection",ExpressionUUID->"d22e0bf0-fd67-4c6b-8121-0fa625806a34"],
Cell[CellGroupData[{
Cell[53478, 1195, 220, 3, 37, "Input",ExpressionUUID->"e699e36e-7116-4173-be08-cda2d8e6c7fa"],
Cell[53701, 1200, 1088, 18, 87, "Output",ExpressionUUID->"664653d1-a337-4e8d-81b4-225b48ad4523"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54826, 1223, 328, 7, 37, "Input",ExpressionUUID->"16a7f1bb-de84-4cae-af9d-162d3444c228"],
Cell[55157, 1232, 1534, 30, 87, "Output",ExpressionUUID->"6181282d-6c5c-4ec4-8a6b-5a6655e1df0d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56728, 1267, 290, 6, 37, "Input",ExpressionUUID->"e6ec1eda-32ca-4870-8ed1-d299e9a9488a"],
Cell[57021, 1275, 1504, 30, 87, "Output",ExpressionUUID->"54f60476-6583-4e9d-96c5-e19e83011537"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58562, 1310, 238, 4, 37, "Input",ExpressionUUID->"6749b035-b1f6-4072-99f9-8b6571017d7a"],
Cell[58803, 1316, 1588, 26, 87, "Output",ExpressionUUID->"42a90b45-c8f8-43b5-959f-33433a18d4c3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60428, 1347, 264, 5, 37, "Input",ExpressionUUID->"8ec7688f-8605-467a-8c9b-e0330376c32f"],
Cell[60695, 1354, 1042, 18, 87, "Output",ExpressionUUID->"53609a1d-f608-40a8-bb6e-8c3121afb757"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61774, 1377, 275, 5, 37, "Input",ExpressionUUID->"02427a1f-338f-49a4-87e8-c97777b50f96"],
Cell[62052, 1384, 934, 14, 87, "Output",ExpressionUUID->"0776be94-d223-4fef-b0eb-eef2d6615f48"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63023, 1403, 359, 9, 36, "Input",ExpressionUUID->"cf658187-84f0-48a0-8cb5-6c357c52ea77"],
Cell[63385, 1414, 936, 14, 87, "Output",ExpressionUUID->"22f5252b-5bdc-44a9-9482-47277a98c070"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64358, 1433, 216, 3, 36, "Input",ExpressionUUID->"16fa1c76-c9c0-4294-94ab-37e2aad7ad7a"],
Cell[64577, 1438, 883, 13, 87, "Output",ExpressionUUID->"078f2d14-d9b2-4745-9531-6fa329f8d230"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[65509, 1457, 181, 3, 46, "Subsection",ExpressionUUID->"0dd632a8-ce6a-49cc-9ec3-0a2b31d0922f"],
Cell[CellGroupData[{
Cell[65715, 1464, 204, 3, 37, "Input",ExpressionUUID->"5424b073-2d33-403a-8c57-49cd182db7e4"],
Cell[65922, 1469, 947, 15, 87, "Output",ExpressionUUID->"59005db4-0d79-4f3b-af43-16237afdebe6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66906, 1489, 313, 7, 37, "Input",ExpressionUUID->"a7269d0a-6aae-405e-b1f2-4df992048c74"],
Cell[67222, 1498, 939, 14, 87, "Output",ExpressionUUID->"d30f8dde-d6e3-4ad0-9e23-0592febfc1c0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68198, 1517, 228, 4, 37, "Input",ExpressionUUID->"0f826100-5832-4f6c-8b97-d67274b7da61"],
Cell[68429, 1523, 932, 14, 87, "Output",ExpressionUUID->"f24db6f8-8a63-4306-9fb2-5421621ac4f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69398, 1542, 332, 7, 64, "Input",ExpressionUUID->"534e2435-3180-49d7-86bc-841efa70fed0"],
Cell[69733, 1551, 949, 14, 87, "Output",ExpressionUUID->"12a2b5a6-2a47-4d64-abdd-db3e317d822e"],
Cell[70685, 1567, 947, 14, 87, "Output",ExpressionUUID->"dadaa0f6-33e2-46f9-94ab-8e1a5af609f6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71669, 1586, 337, 7, 64, "Input",ExpressionUUID->"6dc8d4db-e303-4f84-89d8-ae150363b546"],
Cell[72009, 1595, 903, 13, 87, "Output",ExpressionUUID->"c2f0986d-4e04-4566-9832-75d08f457fd1"],
Cell[72915, 1610, 903, 13, 87, "Output",ExpressionUUID->"bed1db08-67a9-4526-a159-967db89793ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73855, 1628, 201, 3, 37, "Input",ExpressionUUID->"b129f256-706e-4997-8d75-6c4c47b440a7"],
Cell[74059, 1633, 874, 13, 87, "Output",ExpressionUUID->"4504d6d5-c320-4888-b4ec-81bb4398ef0b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74970, 1651, 225, 4, 37, "Input",ExpressionUUID->"e34b50cf-95fa-49c0-8f1f-4ea1515f6468"],
Cell[75198, 1657, 887, 13, 87, "Output",ExpressionUUID->"3d292325-6d8d-4ee4-9211-f31ad97c0cc2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76122, 1675, 248, 5, 37, "Input",ExpressionUUID->"809ab9bc-b6eb-42d1-b521-a0aca02eb43b"],
Cell[76373, 1682, 892, 13, 87, "Output",ExpressionUUID->"416df51f-fcf5-4bdd-9530-7e92658e3de1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77302, 1700, 190, 3, 37, "Input",ExpressionUUID->"9ce6e0a9-4a64-4637-86a2-51088fb15f09"],
Cell[77495, 1705, 892, 13, 87, "Output",ExpressionUUID->"863f098e-3b50-40f1-a8c2-0b200423fa1f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78424, 1723, 210, 3, 37, "Input",ExpressionUUID->"e51e71a4-3e85-441e-bc71-196a82964843"],
Cell[78637, 1728, 880, 13, 87, "Output",ExpressionUUID->"17537581-5f63-4716-87f3-4523e45c3c34"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[79566, 1747, 169, 3, 46, "Subsection",ExpressionUUID->"39f7af74-4055-4cd1-86a6-a220c0e187ce"],
Cell[CellGroupData[{
Cell[79760, 1754, 380, 8, 37, "Input",ExpressionUUID->"d4e7c94e-d51a-4131-985a-4748d164931d"],
Cell[80143, 1764, 890, 13, 87, "Output",ExpressionUUID->"7950219e-4ad9-4abb-bc6a-cfc8fac83c6e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81070, 1782, 477, 11, 90, "Input",ExpressionUUID->"7facbf32-c674-44f0-b4c8-aab513297946"],
Cell[81550, 1795, 883, 13, 87, "Output",ExpressionUUID->"4b2aa400-8ceb-43c4-8602-3036815a4021"]
}, Open  ]],
Cell[CellGroupData[{
Cell[82470, 1813, 204, 3, 37, "Input",ExpressionUUID->"0c286362-9c49-470b-86f9-7e0afddd45ae"],
Cell[82677, 1818, 878, 13, 87, "Output",ExpressionUUID->"c7acd5ac-87c3-425a-90f0-bda88699f358"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83592, 1836, 206, 3, 37, "Input",ExpressionUUID->"4aa0a3a3-7795-4de2-a330-a30a8fd1ef87"],
Cell[83801, 1841, 888, 13, 87, "Output",ExpressionUUID->"8903d848-8641-47eb-9a27-14f7ab30275d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84726, 1859, 218, 3, 37, "Input",ExpressionUUID->"d47fae37-2ac8-41d1-84ad-58d4de1c8762"],
Cell[84947, 1864, 885, 13, 87, "Output",ExpressionUUID->"b7d165af-1ff1-4e18-9fc5-bf7d903c1c1b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85869, 1882, 224, 3, 37, "Input",ExpressionUUID->"c8eaf79d-1a33-4f15-97cb-2c5a4edb781c"],
Cell[86096, 1887, 884, 13, 87, "Output",ExpressionUUID->"d3d0e42c-0be3-4d35-b953-732858f84a1b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[87017, 1905, 261, 5, 37, "Input",ExpressionUUID->"33ffd86a-da00-4a3a-9e90-a89874620913"],
Cell[87281, 1912, 928, 14, 87, "Output",ExpressionUUID->"0a2ed0d2-fbaa-46c6-b6d7-555c504e88d6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88246, 1931, 342, 7, 37, "Input",ExpressionUUID->"58881091-3410-4777-83eb-0c0f772ef30d"],
Cell[88591, 1940, 882, 13, 87, "Output",ExpressionUUID->"ae4dc048-4f73-47c8-8a71-d3bdb11001ff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[89510, 1958, 313, 6, 37, "Input",ExpressionUUID->"0b94c53d-429a-4ddb-b056-2489333e529b"],
Cell[89826, 1966, 883, 13, 87, "Output",ExpressionUUID->"570c42f6-bd84-4636-b8fc-b46368502758"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[90770, 1986, 165, 3, 84, "Section",ExpressionUUID->"57604eaa-f431-4417-bb7c-0098c0e73d41"],
Cell[CellGroupData[{
Cell[90960, 1993, 174, 3, 67, "Subsection",ExpressionUUID->"9380fd22-21fa-464e-9420-39b48ddb1436"],
Cell[CellGroupData[{
Cell[91159, 2000, 637, 17, 116, "Input",ExpressionUUID->"827390e3-d7f6-4198-8e01-ab461721c7d3"],
Cell[91799, 2019, 1023, 18, 87, "Output",ExpressionUUID->"326416ae-7b96-46a2-8416-e64147beccf1"],
Cell[92825, 2039, 983, 16, 87, "Output",ExpressionUUID->"f83f4e32-2b4d-4c38-af7b-8ad852fd690e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[93845, 2060, 409, 9, 37, "Input",ExpressionUUID->"0b43c544-a73e-4142-b36a-96276cb06c0c"],
Cell[94257, 2071, 1093, 17, 87, "Output",ExpressionUUID->"067ea821-da66-482f-b538-918d4b879432"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95387, 2093, 527, 11, 64, "Input",ExpressionUUID->"5d01efd5-ffef-4c97-b27a-cb675015ed83"],
Cell[95917, 2106, 1272, 22, 87, "Output",ExpressionUUID->"5b7da995-9810-44cd-8b91-18c513214d9c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97226, 2133, 198, 3, 37, "Input",ExpressionUUID->"581fc232-a59a-43cb-a482-7ff89bac2397"],
Cell[97427, 2138, 882, 13, 87, "Output",ExpressionUUID->"d63b82af-5ef4-4d35-8663-05757a5239de"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[98358, 2157, 170, 3, 46, "Subsection",ExpressionUUID->"53d74aa8-2205-4be0-bdf9-5480cb710eae"],
Cell[CellGroupData[{
Cell[98553, 2164, 468, 11, 91, "Input",ExpressionUUID->"c70875a6-ab1f-4878-9c9f-a5583df0f563"],
Cell[99024, 2177, 1035, 17, 42, "Output",ExpressionUUID->"404b2683-3ad5-44b0-a09e-28a65b329de2"],
Cell[100062, 2196, 1035, 17, 42, "Output",ExpressionUUID->"c2f8e273-259b-44d2-af86-96788f1bfa94"],
Cell[101100, 2215, 1293, 20, 42, "Output",ExpressionUUID->"3ff1b2b0-65ef-4498-a396-ad5329467d67"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102430, 2240, 333, 7, 65, "Input",ExpressionUUID->"a1b488b6-b76f-410c-8256-f4101f855e1b"],
Cell[102766, 2249, 1066, 17, 42, "Output",ExpressionUUID->"74dc9137-6c4f-4378-97a1-d030fd35bd44"],
Cell[103835, 2268, 1122, 21, 42, "Output",ExpressionUUID->"68837d51-0f31-4a6c-ba6a-69a1bce85d2e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104994, 2294, 309, 7, 37, "Input",ExpressionUUID->"3277cf9b-7000-4186-a88b-c36aa4b479c5"],
Cell[105306, 2303, 987, 16, 42, "Output",ExpressionUUID->"f755fa9f-55b2-413e-a7f2-e1a59a32a284"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106330, 2324, 275, 6, 37, "Input",ExpressionUUID->"70fd793b-52ea-4d89-ac91-18b6fb273709"],
Cell[106608, 2332, 965, 16, 42, "Output",ExpressionUUID->"a5221c2b-e434-423e-8637-4a18a6a9534b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107610, 2353, 396, 10, 37, "Input",ExpressionUUID->"858bfc5a-192e-4080-a535-eec662588a47"],
Cell[108009, 2365, 1264, 26, 42, "Output",ExpressionUUID->"454da55b-f90f-4b8d-9d5f-97f44aed3a77"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109310, 2396, 293, 6, 37, "Input",ExpressionUUID->"aa2e559f-b47a-4962-979a-ea297aaa73c8"],
Cell[109606, 2404, 984, 16, 42, "Output",ExpressionUUID->"766fbdcc-8a82-41e1-80b9-f121af415f07"]
}, Open  ]],
Cell[CellGroupData[{
Cell[110627, 2425, 285, 6, 37, "Input",ExpressionUUID->"0b0a1862-c619-4bed-9992-d3ea6a2e57e7"],
Cell[110915, 2433, 1033, 19, 42, "Output",ExpressionUUID->"259f915b-f29d-49e9-bf67-0a578baa6ebb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111985, 2457, 458, 11, 37, "Input",ExpressionUUID->"8d271a59-de23-48e8-b21d-9c44e28bcf5c"],
Cell[112446, 2470, 2398, 56, 70, "Output",ExpressionUUID->"ad2126f1-c0b2-4f95-b34b-48bcb54ad71b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114881, 2531, 413, 11, 37, "Input",ExpressionUUID->"edbc2dc1-b6bf-490b-aa14-1690449bc896"],
Cell[115297, 2544, 1056, 21, 61, "Output",ExpressionUUID->"22eef09d-c1e0-49f1-a584-ca1e5d19452c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116390, 2570, 419, 11, 37, "Input",ExpressionUUID->"dc78dd4a-0d90-42c5-8616-42f9c76efaf2"],
Cell[116812, 2583, 1312, 29, 79, "Output",ExpressionUUID->"f0c9cdc9-df8f-45dd-b709-2426a6918d15"]
}, Open  ]],
Cell[CellGroupData[{
Cell[118161, 2617, 435, 12, 37, "Input",ExpressionUUID->"e63d37dd-540a-4238-982e-d05f3664fbf9"],
Cell[118599, 2631, 3495, 96, 155, "Output",ExpressionUUID->"e7c39240-a985-4cc3-aa7b-3431a29b00cc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[122131, 2732, 415, 11, 37, "Input",ExpressionUUID->"19033936-a529-4b87-8d68-1df695828ebe"],
Cell[122549, 2745, 1159, 24, 42, "Output",ExpressionUUID->"5fb06fa7-7387-4dad-a9e3-ff8488394c10"]
}, Open  ]],
Cell[CellGroupData[{
Cell[123745, 2774, 455, 10, 37, "Input",ExpressionUUID->"0eba8cde-69f1-4744-9b8e-ca5c446fd9b7"],
Cell[124203, 2786, 909, 13, 42, "Output",ExpressionUUID->"f132429f-cada-4415-bd70-e8526c641e3c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[125149, 2804, 703, 17, 37, "Input",ExpressionUUID->"0b3d4242-2492-4df6-aa78-2f3b0f30fba6"],
Cell[125855, 2823, 328, 5, 42, "Output",ExpressionUUID->"92a78bca-2875-43e1-9a50-9c730b88244f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126220, 2833, 486, 11, 37, "Input",ExpressionUUID->"b9d2919e-383e-46fb-bab0-7351c7e8cfc3"],
Cell[126709, 2846, 976, 16, 42, "Output",ExpressionUUID->"0f4ca149-0f3e-4e22-a7a3-b50bc5aad7c8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[127722, 2867, 385, 10, 37, "Input",ExpressionUUID->"9c31a8c8-cbe7-4ad0-a602-f0c842eaa543"],
Cell[128110, 2879, 250, 4, 42, "Output",ExpressionUUID->"a102414e-9275-4b75-88ea-2dd24d43d71a"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[128409, 2889, 167, 3, 46, "Subsection",ExpressionUUID->"a8c987b8-117d-4179-87b0-2fda4f23046d"],
Cell[CellGroupData[{
Cell[128601, 2896, 371, 9, 37, "Input",ExpressionUUID->"7c2def62-86e8-4ffd-ba02-9d2d34eb1a95"],
Cell[128975, 2907, 1465, 37, 85, "Output",ExpressionUUID->"b117913d-236c-413f-b512-37450d141426"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130477, 2949, 304, 7, 37, "Input",ExpressionUUID->"5dba219c-410b-40ad-aecb-516efcb47373"],
Cell[130784, 2958, 1140, 26, 63, "Output",ExpressionUUID->"9cdf0608-f2db-49c6-9985-8358b48505ac"]
}, Open  ]],
Cell[CellGroupData[{
Cell[131961, 2989, 238, 4, 37, "Input",ExpressionUUID->"b74aaa9b-dab1-4312-9a9c-80aba46bba72"],
Cell[132202, 2995, 854, 14, 42, "Output",ExpressionUUID->"a8d5c916-740d-42aa-b376-048b1ab5eca8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[133093, 3014, 287, 6, 37, "Input",ExpressionUUID->"6f5997cd-d5cc-4085-ad1c-944a47c21171"],
Cell[133383, 3022, 1164, 22, 42, "Output",ExpressionUUID->"32dd4768-3ce7-4fb0-8cef-c08990c8f1ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134584, 3049, 323, 7, 37, "Input",ExpressionUUID->"4d5d8be3-96c8-46b8-bc58-815e01dcfe5c"],
Cell[134910, 3058, 1367, 30, 123, "Output",ExpressionUUID->"68f58493-5474-4465-980a-1dbe3c00ce4e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136314, 3093, 443, 12, 37, "Input",ExpressionUUID->"93bd1de7-bafd-4dc1-9c11-9f8bc3b99881"],
Cell[136760, 3107, 9610, 197, 76, "Output",ExpressionUUID->"63ca2deb-9f01-4fa4-854a-5540159916c3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[146407, 3309, 830, 23, 37, "Input",ExpressionUUID->"b3bc1842-3ff2-424a-9a62-d0aa1c806400"],
Cell[147240, 3334, 10428, 217, 76, "Output",ExpressionUUID->"5c095bad-6429-4c2a-8f7e-02d5b5af915a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[157705, 3556, 208, 3, 37, "Input",ExpressionUUID->"b713f086-708f-40ba-8071-8948ffd6acd0"],
Cell[157916, 3561, 1424, 33, 123, "Output",ExpressionUUID->"2fc3b467-f13e-4b33-89f8-1b684e1dce03"]
}, Open  ]],
Cell[CellGroupData[{
Cell[159377, 3599, 210, 3, 37, "Input",ExpressionUUID->"8d50d59a-2bb6-4096-be08-d45d59ac9786"],
Cell[159590, 3604, 1112, 21, 42, "Output",ExpressionUUID->"78a3ba33-764c-4c6e-8bca-a430066d2ec1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[160739, 3630, 202, 3, 37, "Input",ExpressionUUID->"72d50225-26f5-4f90-9f1b-0643de57397a"],
Cell[160944, 3635, 683, 10, 42, "Output",ExpressionUUID->"a6d782be-4e90-4dfe-afe0-a3563d11521f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[161676, 3651, 168, 3, 46, "Subsection",ExpressionUUID->"1217b48c-4ce0-4f7c-a4b1-5339069b9ecc"],
Cell[CellGroupData[{
Cell[161869, 3658, 400, 9, 37, "Input",ExpressionUUID->"a725f9f9-c7c0-46bd-894f-becc7aea1e78"],
Cell[162272, 3669, 916, 17, 42, "Output",ExpressionUUID->"603a0dc0-f01d-4ee1-88fd-36fef5c0f1ce"]
}, Open  ]],
Cell[CellGroupData[{
Cell[163225, 3691, 448, 11, 37, "Input",ExpressionUUID->"078f81b8-093a-432c-a506-b768289e6f2a"],
Cell[163676, 3704, 931, 18, 42, "Output",ExpressionUUID->"757f97dc-1d4b-4c17-85ba-b5b9c93ddb44"]
}, Open  ]],
Cell[CellGroupData[{
Cell[164644, 3727, 562, 14, 64, "Input",ExpressionUUID->"206bf0d9-f5a7-4a9d-80e6-26142143d975"],
Cell[165209, 3743, 685, 10, 42, "Output",ExpressionUUID->"8c3c08cc-842d-46bc-8b79-69a230f16919"]
}, Open  ]],
Cell[CellGroupData[{
Cell[165931, 3758, 214, 3, 37, "Input",ExpressionUUID->"8619d4dd-e073-4ecb-a646-e54b49c7367c"],
Cell[166148, 3763, 702, 11, 42, "Output",ExpressionUUID->"8473daff-5592-4d21-aef3-c1b88b35c666"]
}, Open  ]],
Cell[CellGroupData[{
Cell[166887, 3779, 211, 3, 37, "Input",ExpressionUUID->"4035f2c2-ed47-4fe8-8d59-b8f169b88c82"],
Cell[167101, 3784, 658, 9, 42, "Output",ExpressionUUID->"de02060a-86bd-4a06-a09f-d75f3b7bc610"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[167808, 3799, 160, 3, 46, "Subsection",ExpressionUUID->"a5c03ec7-b3f4-4909-8b47-a4fa0bc352fb"],
Cell[CellGroupData[{
Cell[167993, 3806, 250, 5, 37, "Input",ExpressionUUID->"c956f51d-01bb-40fb-a57f-28d21df66086"],
Cell[168246, 3813, 772, 12, 42, "Output",ExpressionUUID->"77836db0-7040-44f2-96f3-6ed4c87fc909"]
}, Open  ]],
Cell[CellGroupData[{
Cell[169055, 3830, 207, 3, 37, "Input",ExpressionUUID->"7239d6c9-537a-4590-bf82-1e9be9ac4c75"],
Cell[169265, 3835, 1211, 30, 101, "Output",ExpressionUUID->"fec071af-1ebc-46e8-8f64-d08456f9c8fb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[170513, 3870, 205, 3, 37, "Input",ExpressionUUID->"b54f3093-243b-4c83-9a3b-901eaf4ece9b"],
Cell[170721, 3875, 689, 10, 42, "Output",ExpressionUUID->"7a34f9ad-5dd0-409c-a367-8a528dff2e73"]
}, Open  ]],
Cell[CellGroupData[{
Cell[171447, 3890, 297, 7, 37, "Input",ExpressionUUID->"de6a8b3d-6009-4ca8-905b-583b0b54fe5d"],
Cell[171747, 3899, 729, 13, 42, "Output",ExpressionUUID->"1b136d82-7dba-4d8b-971e-50c87b464db3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[172513, 3917, 1008, 27, 142, "Input",ExpressionUUID->"704b9444-4a24-4aa5-a463-a54ca9222f49"],
Cell[CellGroupData[{
Cell[173546, 3948, 742, 12, 29, "Print",ExpressionUUID->"b53e00b8-db3f-4cc5-8fec-3fea0a7df02a"],
Cell[174291, 3962, 745, 12, 29, "Print",ExpressionUUID->"8c7d4e69-cb78-44db-927d-251747a3fda9"],
Cell[175039, 3976, 750, 12, 29, "Print",ExpressionUUID->"ab115bab-c832-4770-ac98-2c2a96aa9511"],
Cell[175792, 3990, 749, 12, 29, "Print",ExpressionUUID->"f7844a95-14de-4379-aa75-4de48ef110fd"],
Cell[176544, 4004, 729, 12, 29, "Print",ExpressionUUID->"3d4c38a6-4010-44ec-89e4-edbe410c18cb"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[177334, 4023, 162, 3, 46, "Subsection",ExpressionUUID->"c39cc1c9-bbe9-420a-ae52-e3d9a49e6181"],
Cell[CellGroupData[{
Cell[177521, 4030, 429, 12, 37, "Input",ExpressionUUID->"31e4e0c9-0259-45eb-981d-6e98b23b96f4"],
Cell[177953, 4044, 1165, 27, 79, "Output",ExpressionUUID->"67eb2082-ef57-415f-a5c8-2d10b8db30bf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[179155, 4076, 390, 12, 78, "Input",ExpressionUUID->"e1384a7d-ee77-4dc8-af96-c62ca78f6fed"],
Cell[179548, 4090, 942, 19, 42, "Output",ExpressionUUID->"cac4ab86-fff8-4012-9391-86177cf08d88"]
}, Open  ]],
Cell[CellGroupData[{
Cell[180527, 4114, 209, 4, 37, "Input",ExpressionUUID->"471490ce-6b79-42c2-b6ea-7f20db6691d3"],
Cell[180739, 4120, 692, 11, 42, "Output",ExpressionUUID->"069fe37f-5401-4268-a232-a8844e88374b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[181468, 4136, 495, 14, 37, "Input",ExpressionUUID->"4f119e81-0620-4c98-b3b1-170be0b7f9e3"],
Cell[181966, 4152, 1182, 28, 101, "Output",ExpressionUUID->"18f606c0-d4e5-4931-84df-a6e1d3d62601"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[183197, 4186, 173, 3, 46, "Subsection",ExpressionUUID->"f50ea05c-1f4f-47ce-8afd-6f8d55f3df69"],
Cell[CellGroupData[{
Cell[183395, 4193, 932, 26, 116, "Input",ExpressionUUID->"0eadd9f6-d5a4-4f4f-8b9d-d7b31214405c"],
Cell[CellGroupData[{
Cell[184352, 4223, 818, 13, 29, "Print",ExpressionUUID->"8a711b4b-3d51-4151-85be-1c9c573ea29b"],
Cell[185173, 4238, 826, 14, 29, "Print",ExpressionUUID->"8c144abe-4cb0-4c01-8fe0-2d5b9db82bd5"],
Cell[186002, 4254, 793, 13, 29, "Print",ExpressionUUID->"86c62792-d2aa-45f8-8b63-3a415d68ea5a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[186844, 4273, 283, 7, 37, "Input",ExpressionUUID->"9040a7b9-1f4d-478d-9568-b328cc98eadd"],
Cell[187130, 4282, 740, 13, 42, "Output",ExpressionUUID->"c51d2732-00f9-420a-8c06-dd50eee1102a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[187907, 4300, 660, 18, 64, "Input",ExpressionUUID->"61821bbd-2696-4c8a-8851-0a3064ad4e19"],
Cell[188570, 4320, 1197, 28, 101, "Output",ExpressionUUID->"5bde6198-9b33-4f79-9468-287b31a24693"],
Cell[189770, 4350, 1165, 27, 79, "Output",ExpressionUUID->"935530d9-b17a-44b0-aefd-dd70d2494c78"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[190984, 4383, 176, 3, 46, "Subsection",ExpressionUUID->"091c67c4-074c-42d5-b63e-e033f34b8604"],
Cell[CellGroupData[{
Cell[191185, 4390, 466, 14, 37, "Input",ExpressionUUID->"e901ef8b-55dd-404a-b181-3eb295258121"],
Cell[191654, 4406, 1187, 28, 101, "Output",ExpressionUUID->"b3267bd2-e6ac-4a02-837e-88bbd951de9c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192878, 4439, 375, 10, 64, "Input",ExpressionUUID->"ef736437-916f-4abd-a960-d6206168f553"],
Cell[193256, 4451, 1119, 27, 101, "Output",ExpressionUUID->"56b278f2-c8dc-4477-b509-06bbed009879"]
}, Open  ]],
Cell[CellGroupData[{
Cell[194412, 4483, 244, 5, 37, "Input",ExpressionUUID->"03a7e866-0329-470b-9297-fba616b32783"],
Cell[194659, 4490, 1137, 28, 109, "Output",ExpressionUUID->"a57aeade-786b-4a07-bc5b-3e8c8419bce7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[195833, 4523, 212, 4, 37, "Input",ExpressionUUID->"49760e19-f835-4b22-96a3-ab9bd8124f41"],
Cell[196048, 4529, 667, 12, 42, "Output",ExpressionUUID->"9a14f6be-2ed8-407d-b998-2d8ad99351e9"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[196776, 4548, 243, 4, 84, "Section",ExpressionUUID->"ebdd66e8-c7ec-4d79-b8cd-6f2eab39cbc8"],
Cell[CellGroupData[{
Cell[197044, 4556, 168, 3, 67, "Subsection",ExpressionUUID->"61f51402-4f2e-462f-89b8-d0a4f44a148e"],
Cell[CellGroupData[{
Cell[197237, 4563, 386, 11, 63, "Input",ExpressionUUID->"9012cdf5-fa51-483f-8ab2-666c2e527742"],
Cell[197626, 4576, 594, 9, 87, "Output",ExpressionUUID->"0c205298-9922-4389-96fc-dfcdab4b5a72"]
}, Open  ]],
Cell[CellGroupData[{
Cell[198257, 4590, 273, 7, 36, "Input",ExpressionUUID->"da1a1ac9-fc9b-4f00-b39f-e77740587afa"],
Cell[198533, 4599, 596, 9, 87, "Output",ExpressionUUID->"33965075-5113-4e4e-985a-921582e369bc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[199166, 4613, 568, 14, 63, "Input",ExpressionUUID->"6d0e3013-053b-40b9-bae6-c5a6beb42e4f"],
Cell[199737, 4629, 591, 9, 87, "Output",ExpressionUUID->"402e2998-5a68-455d-92fe-9af194f37f3a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[200365, 4643, 537, 15, 90, "Input",ExpressionUUID->"a428262a-2bfd-45df-a910-d843b27ec49e"],
Cell[200905, 4660, 666, 11, 87, "Output",ExpressionUUID->"9af27f7e-edfd-482d-89bf-8ba175c7aced"]
}, Open  ]],
Cell[CellGroupData[{
Cell[201608, 4676, 297, 8, 36, "Input",ExpressionUUID->"7779c098-0ef3-4c57-80f4-aec3d4fbfe95"],
Cell[201908, 4686, 645, 11, 87, "Output",ExpressionUUID->"58d04b66-c2a2-48a5-9cd8-4116e43bce75"]
}, Open  ]],
Cell[CellGroupData[{
Cell[202590, 4702, 892, 22, 90, "Input",ExpressionUUID->"ab1aadac-9c9e-4993-b006-a350b9ff347d"],
Cell[203485, 4726, 712, 11, 87, "Output",ExpressionUUID->"6556ebea-6a55-442d-87b9-038148935bf7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[204234, 4742, 280, 7, 36, "Input",ExpressionUUID->"83c94386-7d13-4c22-a93e-c36586add453"],
Cell[204517, 4751, 602, 11, 87, "Output",ExpressionUUID->"923b75dc-52f3-4cd4-b772-f4d6153758c0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205156, 4767, 290, 7, 36, "Input",ExpressionUUID->"28ca2962-d50a-4203-82b8-1c2e76661983"],
Cell[205449, 4776, 545, 9, 87, "Output",ExpressionUUID->"8a15fa4d-1066-4d40-9158-55ac942ce94c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206031, 4790, 212, 4, 36, "Input",ExpressionUUID->"ad81c9f7-e617-4619-9732-a210ef80a57c"],
Cell[206246, 4796, 701, 15, 87, "Output",ExpressionUUID->"23c2d0dd-ff5f-423e-aa75-6ffcbe05ca2e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206984, 4816, 210, 4, 36, "Input",ExpressionUUID->"35890e6a-80e6-486b-ba8a-a9b2c9ca689a"],
Cell[207197, 4822, 571, 10, 87, "Output",ExpressionUUID->"f64086e2-7caf-472d-adb0-8751916cee52"]
}, Open  ]],
Cell[CellGroupData[{
Cell[207805, 4837, 233, 5, 36, "Input",ExpressionUUID->"bba13bc1-fd94-42f9-9a8c-687557a94293"],
Cell[208041, 4844, 551, 10, 87, "Output",ExpressionUUID->"9826fca1-bad5-4344-b2df-4fc42a1e5104"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208629, 4859, 254, 6, 36, "Input",ExpressionUUID->"ac918779-296c-416c-a713-1a51308460df"],
Cell[208886, 4867, 642, 13, 87, "Output",ExpressionUUID->"497358dd-3a7a-4880-afd4-b76f6894a653"]
}, Open  ]],
Cell[CellGroupData[{
Cell[209565, 4885, 282, 7, 36, "Input",ExpressionUUID->"51bc6057-c0ee-4501-9b96-67f4a0e1573c"],
Cell[209850, 4894, 694, 15, 87, "Output",ExpressionUUID->"e857b590-8a94-4fc3-91f2-d2f188bd0a77"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[210593, 4915, 182, 3, 46, "Subsection",ExpressionUUID->"979a3cb6-100c-446a-b9a6-9e0d4575a5d7"],
Cell[CellGroupData[{
Cell[210800, 4922, 676, 17, 64, "Input",ExpressionUUID->"af3fecfa-106b-4cf3-a275-f85b6e6e5202"],
Cell[211479, 4941, 526, 8, 42, "Output",ExpressionUUID->"246634b2-d820-4310-bca6-38ef602c4d91"]
}, Open  ]],
Cell[CellGroupData[{
Cell[212042, 4954, 182, 3, 37, "Input",ExpressionUUID->"afd65613-6ee1-4d17-a566-a991596b6149"],
Cell[212227, 4959, 601, 10, 42, "Output",ExpressionUUID->"7c00030a-e2df-4882-b987-b1557aea3a02"]
}, Open  ]],
Cell[CellGroupData[{
Cell[212865, 4974, 332, 7, 37, "Input",ExpressionUUID->"5b2edfe6-80f2-42f1-bbae-0fa0ab75aed8"],
Cell[213200, 4983, 670, 12, 45, "Output",ExpressionUUID->"9f00f174-b70c-4ea5-88de-24ea67b3c8e1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[213907, 5000, 249, 5, 37, "Input",ExpressionUUID->"474a0093-f578-4781-a6ba-4ed4c0af2500"],
Cell[214159, 5007, 603, 11, 42, "Output",ExpressionUUID->"350e12bf-cc5a-4a7f-9b29-06e2c373d07b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[214799, 5023, 237, 5, 37, "Input",ExpressionUUID->"d6e8269c-3417-4b4c-88f2-4622c75a2441"],
Cell[215039, 5030, 617, 11, 42, "Output",ExpressionUUID->"a66adc81-e24b-43ac-9ad8-4555d83d06a1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215693, 5046, 359, 9, 37, "Input",ExpressionUUID->"1f1bfa12-bd08-4d52-8f81-22ba002f6bbc"],
Cell[216055, 5057, 624, 11, 42, "Output",ExpressionUUID->"674a3b7e-37f7-4cef-9d4d-2734c6e54fda"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216716, 5073, 686, 20, 64, "Input",ExpressionUUID->"b5f1308b-949f-45fa-ba39-7d6d31b9e4db"],
Cell[217405, 5095, 604, 11, 42, "Output",ExpressionUUID->"513475e6-10c1-4766-85ef-6e97e4161a28"]
}, Open  ]],
Cell[CellGroupData[{
Cell[218046, 5111, 338, 9, 37, "Input",ExpressionUUID->"17e8c43d-39e2-42de-baf2-294fead817db"],
Cell[218387, 5122, 555, 10, 42, "Output",ExpressionUUID->"86196a30-dd60-4102-8efd-d56fae6c80f5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[218979, 5137, 274, 6, 37, "Input",ExpressionUUID->"54f44962-d6c6-4990-8891-d21dbef7e1c6"],
Cell[219256, 5145, 623, 11, 42, "Output",ExpressionUUID->"397932d6-f763-4951-86fd-46a05d29f2a7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[219916, 5161, 374, 10, 37, "Input",ExpressionUUID->"21aba9ca-8682-4ae6-9257-e723c1ff2ad1"],
Cell[220293, 5173, 594, 10, 42, "Output",ExpressionUUID->"6badbf7a-d6f4-43e1-9ebd-c34ee30207fc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[220924, 5188, 384, 10, 37, "Input",ExpressionUUID->"d542ed7b-1687-4db5-9a1f-adb1e69ed220"],
Cell[221311, 5200, 588, 11, 42, "Output",ExpressionUUID->"c873c5ea-5927-45fe-9649-83e433ccac8e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[221936, 5216, 476, 12, 37, "Input",ExpressionUUID->"23dd2ec1-5a8a-4df0-b170-16a2236f523d"],
Cell[222415, 5230, 603, 11, 42, "Output",ExpressionUUID->"9bbbcdb3-b4ec-424f-acf2-0de98bcd8972"]
}, Open  ]],
Cell[CellGroupData[{
Cell[223055, 5246, 495, 12, 37, "Input",ExpressionUUID->"f9e023c0-06f3-46ce-a0a5-100c92a11d8b"],
Cell[223553, 5260, 624, 11, 42, "Output",ExpressionUUID->"1502d4f9-a175-4c24-94ea-8ca9adc0959e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[224214, 5276, 690, 18, 64, "Input",ExpressionUUID->"864aed9e-befa-4541-b989-26ce1304535d"],
Cell[224907, 5296, 569, 12, 42, "Output",ExpressionUUID->"1fcaf0f4-5fa3-4880-b26b-b3612483fe7a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[225513, 5313, 409, 11, 37, "Input",ExpressionUUID->"55f331e0-d18d-43ab-8f81-a6648f26dbcc"],
Cell[225925, 5326, 441, 8, 42, "Output",ExpressionUUID->"df304230-eb06-48fc-8aa3-4958ff6c1280"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[226415, 5340, 170, 3, 46, "Subsection",ExpressionUUID->"7864536a-ca6b-4672-b49d-34d268dac4e1"],
Cell[CellGroupData[{
Cell[226610, 5347, 361, 9, 37, "Input",ExpressionUUID->"7ff503b3-64ee-4d75-952c-263daf05f328"],
Cell[226974, 5358, 488, 11, 42, "Output",ExpressionUUID->"45628b60-3dd5-4736-beb3-8c8fc98eedfc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[227499, 5374, 351, 8, 37, "Input",ExpressionUUID->"c884f600-eb14-47c4-8f59-d73c7f98b43e"],
Cell[227853, 5384, 481, 9, 42, "Output",ExpressionUUID->"1107cf5e-5736-440a-8546-1ff429eec779"]
}, Open  ]],
Cell[CellGroupData[{
Cell[228371, 5398, 331, 8, 37, "Input",ExpressionUUID->"c51af4d9-bdb0-4a34-99db-0f7f4bfd085f"],
Cell[228705, 5408, 458, 10, 42, "Output",ExpressionUUID->"3011f9bb-a2cd-450a-847d-5b5330f0954a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[229200, 5423, 362, 9, 37, "Input",ExpressionUUID->"f6296dea-33f5-476b-9791-9bf3968482be"],
Cell[229565, 5434, 609, 16, 42, "Output",ExpressionUUID->"8117dafa-df61-44a9-a92a-48f8dd73e80c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[230211, 5455, 343, 8, 37, "Input",ExpressionUUID->"540eda5f-db43-4ac7-89dc-6138ed3e9796"],
Cell[230557, 5465, 650, 16, 42, "Output",ExpressionUUID->"482ba854-7e9d-40ab-94d5-1ff632b8ffae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[231244, 5486, 399, 10, 37, "Input",ExpressionUUID->"98894e91-a78f-4012-ae3d-3d4df2ec1beb"],
Cell[231646, 5498, 493, 11, 42, "Output",ExpressionUUID->"507d8cac-7a51-4425-86ad-c91306309645"]
}, Open  ]],
Cell[CellGroupData[{
Cell[232176, 5514, 486, 14, 37, "Input",ExpressionUUID->"30a0a647-48e7-43db-888d-e93066841de6"],
Cell[232665, 5530, 430, 9, 42, "Output",ExpressionUUID->"a27d88c9-6a26-4756-a563-5aebc8172a79"]
}, Open  ]],
Cell[CellGroupData[{
Cell[233132, 5544, 641, 19, 37, "Input",ExpressionUUID->"d3589286-0f05-4eb4-b1ef-f119389b0d40"],
Cell[233776, 5565, 448, 11, 42, "Output",ExpressionUUID->"917482db-f6c1-4331-a91c-d517576bebba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[234261, 5581, 412, 11, 37, "Input",ExpressionUUID->"c9520650-6cce-4518-8883-edef02f51d56"],
Cell[234676, 5594, 546, 13, 42, "Output",ExpressionUUID->"e00ab700-6b7a-4fd6-92fa-35d98d28044d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[235259, 5612, 312, 8, 36, "Input",ExpressionUUID->"b5966382-74ed-4a51-9460-868a85f77e26"],
Cell[235574, 5622, 459, 11, 87, "Output",ExpressionUUID->"9d41c4fa-5cdb-453b-ac87-ae6eacf81d8c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[236070, 5638, 371, 9, 36, "Input",ExpressionUUID->"363f1c83-e818-41cc-b2e4-a4c982c59ccd"],
Cell[236444, 5649, 450, 9, 87, "Output",ExpressionUUID->"2acbe82a-cd80-4e4a-be91-8f3401c09f40"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[236943, 5664, 174, 3, 46, "Subsection",ExpressionUUID->"914f0dfb-a853-46fb-8200-ea57a93f23be"],
Cell[CellGroupData[{
Cell[237142, 5671, 740, 20, 90, "Input",ExpressionUUID->"9ab7cc99-0a17-40c4-8c98-c49ce1dcaff4"],
Cell[237885, 5693, 384, 8, 42, "Output",ExpressionUUID->"be2cbbe2-eaf9-4a04-9fbf-37533ff0aab3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238306, 5706, 272, 6, 37, "Input",ExpressionUUID->"31921e89-fc9f-4793-bdcf-5557a573874d"],
Cell[238581, 5714, 378, 7, 42, "Output",ExpressionUUID->"24fd972e-25fc-4c95-bb46-2c604d2cc313"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238996, 5726, 535, 16, 37, "Input",ExpressionUUID->"d10e4a28-0d37-4992-b397-59f05fd39a8f"],
Cell[239534, 5744, 330, 6, 42, "Output",ExpressionUUID->"462fe021-2b7e-472d-a64f-1c23cd4d07d9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[239901, 5755, 562, 17, 37, "Input",ExpressionUUID->"7155863f-0f9b-4c75-8088-d4ec09298179"],
Cell[240466, 5774, 574, 15, 42, "Output",ExpressionUUID->"29881378-584e-43f0-ad49-d8c9a4509468"]
}, Open  ]],
Cell[CellGroupData[{
Cell[241077, 5794, 538, 16, 37, "Input",ExpressionUUID->"775a24d3-90df-40fd-87de-eb023b7e5f12"],
Cell[241618, 5812, 576, 15, 42, "Output",ExpressionUUID->"91b3a90f-1cd6-4787-aec0-adccf75f6431"]
}, Open  ]],
Cell[CellGroupData[{
Cell[242231, 5832, 1345, 33, 90, "Input",ExpressionUUID->"9733c941-8327-4d0a-b474-7928d5c52062"],
Cell[243579, 5867, 4427, 114, 221, "Output",ExpressionUUID->"1c835ebf-02e0-4340-bc1c-c5f19d2b1d1a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[248043, 5986, 491, 10, 37, "Input",ExpressionUUID->"462d87f5-314c-476f-a0bd-a5889ce2c6d1"],
Cell[248537, 5998, 1374, 31, 69, "Output",ExpressionUUID->"1ec3b777-5aec-4596-938c-a33876e404c7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[249948, 6034, 426, 10, 37, "Input",ExpressionUUID->"c36cdeb8-896a-4726-adc4-84dbba711ffd"],
Cell[250377, 6046, 1381, 31, 69, "Output",ExpressionUUID->"9ad863bb-4768-41cf-b0c1-6555d1b80104"]
}, Open  ]],
Cell[CellGroupData[{
Cell[251795, 6082, 425, 10, 37, "Input",ExpressionUUID->"882bc6a7-f48f-44b0-82cc-ce1d03917af9"],
Cell[252223, 6094, 392, 7, 42, "Output",ExpressionUUID->"62e29b8d-af7e-420a-814d-7533c8bcd19f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[252652, 6106, 882, 24, 116, "Input",ExpressionUUID->"c07e0e63-acaf-4a17-af77-91fbae31e976"],
Cell[253537, 6132, 382, 7, 42, "Output",ExpressionUUID->"0f767902-0ea7-4f07-aa59-9308c1c34253"]
}, Open  ]],
Cell[CellGroupData[{
Cell[253956, 6144, 730, 19, 64, "Input",ExpressionUUID->"cfbf16b1-c18f-4b43-9f11-d0d14a8f4940"],
Cell[254689, 6165, 385, 8, 42, "Output",ExpressionUUID->"fa5e8724-70b1-4b7c-8dd3-d68bc01f3777"]
}, Open  ]],
Cell[CellGroupData[{
Cell[255111, 6178, 433, 11, 37, "Input",ExpressionUUID->"ee5c92a5-1031-4d35-826f-510a5c56b650"],
Cell[255547, 6191, 343, 6, 42, "Output",ExpressionUUID->"ab4cffcc-a85a-4ce0-b071-866c39ff6441"]
}, Open  ]],
Cell[CellGroupData[{
Cell[255927, 6202, 276, 6, 37, "Input",ExpressionUUID->"dbb3c807-c7d4-460f-b728-2bf42ba899da"],
Cell[256206, 6210, 381, 8, 42, "Output",ExpressionUUID->"7857a45c-a77f-4ee4-9c0d-4eca62f71761"]
}, Open  ]],
Cell[CellGroupData[{
Cell[256624, 6223, 480, 13, 38, "Input",ExpressionUUID->"b36efad9-4e18-449b-826b-ee6d21720d44"],
Cell[257107, 6238, 411, 8, 42, "Output",ExpressionUUID->"023534ab-a49a-48ec-a9cf-cbb8b2b1264b"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

